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1.  INTRODUCTION 

The  use  of  pulse  sounding  as  an  experimental  technique  in 
the  investigation  of  the  ionosphere  can  be  traced  back  to  Breit 
and  Tuve  (1926).  These  authors  invented  such  a technique  to 
prove  the  existence  of  the  ionosphere.  Modern  reviews  of  these 
early  endeavors  can  be  found  in  Waynick  (1974)  and  Booker  (1974). 
The  improved  electronic  technology  after  the  Second  World  War 
stimulated  interest  in  the  possibility  of  computing  the  electron 
density  profiles  from  pulse  sounding  data  whose  carrier  frequency 
was  swept.  While  the  major  emphasis  has  been  towards  inverting 
the  vertical  sounding  data  for  electron  density  profiles,  there 
have  also  been  sporadic  attempts  to  devise  techniques  of  obtaining 
ionospheric  structure  from  oblique  sounding  data.  Our  work,  re- 
ported here,  is  concerned  with  this  later  problem. 

Mathematically,  the  group  delay  measured  experimentally  is 
a nonlinear  functional  of  the  electron  density  profile.  As  such 
this  is  very  difficult  to  solve.  Fortunately,  for  vertical  inci- 
dence case  with  the  geomagnetic  field  ignored,  the  integral  can 
be  cast  in  the  form  of  a convolution  integral  known  as  Abel's 
integral  equation  which  can  then  be  solved,  for  example,  by 
Laplace  transform  (Manning,  1947) . Once  the  geomagnetic  field 
effect  is  introduced  or  when  the  propagation  path  becomes  obli- 
que, the  convolution  integral  property  is  destroyed.  The  problem 
becomes  much  more  difficult.  The  methods  that  have  been  devised 
• in  the  literature  are  almost  all  numerical.  Ours  is  no  exception. 

In  this  connection,  the  capability  of  homing  the  ray  at  a specified 
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location  with  specified  tolerance  must  be  established  first. 

This  is  the  subject  of  Chapter  2.  In  ray  homing  we  are  interested 
in  three  configurations:  ground-to-ground  homing  via  a reflection 
from  the  ionosphere,  ground-to-satellite  homing  via  transmission 
through  the  ionosphere  and  satellite-to-ground  homing  also  via 
transmission  through  the  ionosphere.  In  each  case,  the  homing 
is  achieved  through  an  iterative  procedure  whereby  the  ray  lands 
at  a point  successively  closer  to  the  given  location.  Several 
examples  are  also  given  to  illustrate  the  method  used.  The  inver- 
sion of  backscatter  ionograms  utilizes  the  values  of  the  minimum 
group  path  computed  for  a given  ionospheric  profile.  It  is 
therefore  desirable  to  have  the  capability  of  computing  the  mini- 
mum group  path.  A chopping  method  is  used  to  achieve  this  and 
two  examples  are  given  to  illustrate  the  procedure  involved.  In 
order  to  achieve  these  capabilities,  the  Air  Force  supplied  three- 
dimensional  ray  tracing  program  and  the  associated  electron  den- 
sity model  are  augmented  by  seven  subroutines.  These  subroutines 
are  fully  described  and  documented  with  computer  listings. 

The  major  objective  of  this  research  is  to  investigate 
methods  whereby  oblique  radio  propagation  data  can  be  used  to 
obtain  ionospheric  profiles.  This  is  contained  in  Chapter  3. 

There  exist  in  practice  two  kinds  of  oblique  propagation  data: 
point-to-point  oblique  ionograms  and  backscatter  leading  edges. 

The  nature  of  these  data  and  their  intuitive  limitations  are 
discussed  in  section  3.1.  In  many  ionospheric  propagation 
studies,  the  quasi-parabolic  layer  has  been  found  to  give  ade- 
quate accuracy.  Further,  such  a layer  has  a relatively  small 
number  of  parameters  (3,  consisting  of  critical  frequency,  base 
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height  of  the  ionosphere  and  the  semi-thickness)  and,  in  many 
cases,  the  desired  expressions  can  be  evaluated  analytically. 

For  this  reason  our  inversion  is  based  on  finding  the  optimum 
quasi-parabolic  layer  that  fits  the  given  data  within  a toler- 
able error.  After  some  discussion  of  the  nature  and  properties 
of  the  quasi-parabolic  layer  in  section  3.2,  we  go  directly  to 
the  inversion  problem.  The  inversion  of  a point-to-point  oblique 
ionogram  is  discussed  first  (section  3.3),  which  is  then  followed 
by  a discussion  of  backscatter  leading  edge  (section  3.4).  The 
results  are  given  in  terms  of  graphs  and  tables.  In  addition  to 
approaches  discussed  in  3.3  and  3.4,  we  have  also  looked  into 
the  inversion  problem  from  general  considerations  (section  3.5 
and  Appendix  4)  . This  inversion  method  makes  use  of  the  Backus- 
Gilbert  technique  and  seems  to  be  very  promising.  Finally, 
the  report  is  concluded  in  Chapter  4 with  recommendations  for 
future  research. 
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2.  HOMING  OF  THE  RAY 

2.1  Introduction 

Homing  of  the  ray  is  the  main  objective  of  this  chapter. 

Our  study  deals  with  the  modification  of  the  three  dimensional 
ray  tracing  program  to  incorporate  the  homing  features  for  ground- 
to-ground,  ground-to-satellite , and  satellite-to-ground  propaga- 
tion. 

Homing  of  the  ray  to  the  required  location  can  be  obtained 
through  an  iterative  procedure  by  homing  first  to  the  ground  dis- 
tance for  a fixed  value  of  the  azimuthal  angle.  If  the  ground 
distance  homing  is  successful  the  azimuthal  angle  of  the  trans- 
mitted ray  is  then  corrected  next.  This  type  of  iteration  re- 
quires back  and  forth  transfer  from  homing  in  ground  distance  to 
homing  in  azimuthal  angle.  The  iteration  stops  when  the  errors 
are  smaller  than  the  prescribed  values. 

For  each  of  the  three  configurations  studied  we  present  a 
detailed  development  of  the  technique  applied  to  achieve  homing 
of  the  ray  together  with  some  examples.  Difficulties  encountered 
during  the  course  of  the  study  are  also  pointed  out.  In  section 

2.2  we  discuss  the  ground-to-ground  homing  procedure  for  a single 
and  multiple  layer  ionosphere.  The  ground-to-satellite  and  satel- 

lx te-to-ground  configurations  together  with  examples  to  illustrate 
the  homing  technique  are  presented  in  section  2.3.  In  section 
2.4  we  discuss  the  chopping  method  utilized  in  finding  the  minimum 
group  path  for  a given  transmitter  location,  azimuthal  angle, 
and  oblique  frequency.  A listing  of  the  computer  programs  devel- 
oped under  this  study  together  with  their  description  is  included 
in  section  2.5.  Finally,  in  section  2.6  we  discuss  the  current 
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accomplishments  and  outline  suggestions  towards  future  improvement 
and  possible  additions  to  the  three  dimensional  ray  tracing  program. 

2.2  Ground-to-Ground  Homing 

The  ground-to-ground  homing  is  the  most  involved  configura- 
tion of  the  homing  study.  Given  the  transmitter  and  receiver 
coordinates  on  the  Earth's  surface,  the  electron  density  profile, 
the  oblique  transmission  frequency  we  find  an  initial  approximate 
elevation  angle  that  will  home  the  ray  to  the  receiver  via  reflec- 
tion from  the  ionosphere.  This  approximate  elevation  angle  is 
then  used  as  an  initial  input  for  the  final  homing  of  the  ray 
through  the  three  dimensional  ray  tracing  computer  program. 

2.2.1  General  Description 

It  is  well  known  that  for  a given  single-layer  ionosphere 
and  a given  radio  frequency  the  one-hop  ground  distance,  D,  as 
a function  of  elevation  angle,  3,  has  the  dependence  sketched  in 
Figure  2.1.  Several  features  of  this  figure  are  worth  noting. 

Due  to  spherical  geometry,  the  ground  distance  has  some  finite 
value,  Dq , even  when  the  elevation  angle  is  zero.  As  the  eleva- 
tion angle  increases,  the  ground  distance  decreases  to  a minimum 
value  Dg  at  3g.  This  is  the  skip  distance  and  consequently  the 
use  of  subscript  s on  all  quantities  related  to  the  skip  ray. 

For  6 > 3S  the  ground  distance  increases  again  and  approaches  to 
infinity  at  3 = 3t  at  which  the  ray  becomes  trapped.  A figure 
such  as  Figure  2.1  suggests  the  following  three  possibilities: 
i)  For  D<D  the  observer  is  in  the  shadow  region  and  no 
ray  can  reach  the  observer  via  reflection  from  the 
ionosphere . 


.1$  ;~+  . 'J/n 


GROUND  DISTANCE  (km) 


[ 


[ 


ELEVATION  ANGLE  (DEGREES) 

Idealized  sketch  showing  the  nature  of  ground  distance 
dependence  on  the  elevation  angle  of  once  reflected  ray 
from  a single  layer  ionosphere. 
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ii)  For  D <D<D  the  observer  is  in  the  illuminated  region 

0 s 

within  which  a low  ray  and  a high  ray  (Pedersen  ray) 
can  reach  the  observer. 

iii)  For  D>Dq  the  low  ray  is  cut  off  by  the  earth  shadow 

and  only  the  high  ray  can  reach  the  observer.  Generally, 
the  high  ray  with  an  elevation  angle  6 near  Bfc  is  very 
much  de-focussed  and  is  very  sensitive  to  elevation 
angles  and  small  changes  in  the  ionospheric  model. 

Based  upon  the  above  observations,  we  outline  the  procedure 
to  obtain  an  approximate  homing  elevation  angle.  This  approxi- 
mate angle  is  then  refined  through  utilization  of  the  three  di- 
mensional ray  tracing  program. 

The  given  ionosphere  at  the  midpoint  of  the  transmitter  and 
receiver  is  approximated  by  segments  of  a second  degree  polynom- 
ial which  for  the  i segment  has  the  form 


Ni(r)  = a;L  + bi  + gi  ri_1  < r < r±  (2.1) 

— p- 

The  coefficients  are  chosen  by  fitting  to  the  given  ionospheric 
model  and  making  sure  that  both  the  density  and  its  derivatives 
are  continuous  in  going  from  segment  to  segment.  Using  the  elec- 
tron density  profile  given  by  (2.1)  we  find  analytic  expressions 
for  the  ground  distance  (range)  D and  the  virtual  path  (group 
path)  P'.  Since  the  trapped  rays  are  known  to  have  ray  apogee 
slightly  below  the  peak  of  the  layer  and  since  the  high  rays  are 
very  sensitive  near  we  let  the  ray  apogee  occur  at  the  ionospheric 
peak  as  an  approximation  and  find  the  penetration  angle  Bp.  In 
general  Bp  so  found  is  slightly  less  than  Bfc.  Then,  from  the  range 
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of  elevation  angles  we  calculate  the  corresponding  ground  dis- 
tances and  group  paths  through  the  analytical  expressions,  thus 
generating  a table  of  elevation  angles  versus  ground  distance 
and  group  path.  The  ground  distance  between  the  transmitter  and 
receiver  is  compared  with  the  tabulated  ground  distances.  If 
D<Dg  there  is  no  solution;  if  D=Ds  there  is  possibly  one  solu- 
tion; if  Ds<D<D^  there  are  two  solutions;  and  D>D&  there  is  one 
solution.  The  solutions,  if  they  exist,  are  found  by  linear 
interpolation.  Once  the  solutions  are  found,  the  approximate 
elevation  angles  serve  as  the  initial  input  in  the  ray  tracing 
program  to  eventually  home  the  ray. 

2.2.2  Approximate  Elevation  Angle-Single  Layer  Ionosphere 

The  geometry  of  the  ground-to-ground  homing  problem  is  shown 
in  Figure  2.2.  We  assume  that  the  transmitter  and  receiver  co- 
ordinates are  given  in  geographic  east  longitude  and  north  lati- 
tude. The  ground  distance,  D , between  the  transmitter  and  re- 

1 K 

ceiver  is  given  by 


°TR  roY 


(2.2) 


where  r is  the  earth  radius  in  km  and  y is  the  angle  subtended 
at  the  earth  center  between  the  transmitter  and  receiver.  Apply- 
ing the  cosine  law  of  spherical  trigonometry  to  Figure  2.3,  angle 
y is 


y = cos  [cos  0T  cos  0R  + sin  6T  sin  0R  cos  ( 4>T~ 4>R)  1 

(2.3) 


where  0T,  0R  are  the  colatitudes,  <f>T,  <J>R  are  the  longitudes  of 
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IONOSPHERE 


Figure  2.2.  Sketch  showing  the  geometry  of  the  reflected  ray 
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the  transmitter  and  receiver  respectively.  The  coordinates  of 
the  midpoint  between  the  transmitter  and  receiver  are  then  found 
through  the  application  of  the  sine  and  cosine  laws  of  spherical 
trigonometry  to  Figure  2.3.  From  Figure  2.3,  the  azimuthal  angle 
of  the  receiver  as  viewed  from  the  transmitter  is 

a.  = sin  1 [sin  (<)>T-0R)  sin  e / sin  y]  (2.4) 

The  colatitude  of  the  midpoint,  M,  is 

0M  = cos  [cos  0 cos  y_  + sin  0 sin  y_  cos  a] 

1 2 1 2 

(2.5) 

The  relative  longitude  of  the  midpoint  M with  respect  to  the 
transmitter  longitude,  6 , is  given  by 

6(f>M  = sin  1 [sin  a sin  y / sin  0M]  (2.6) 

The  exact  longitude  of  the  midpoint  M is  found  by  adding  or 
subtracting  the  relative  longitude  6 <f>  from  the  transmitter  long- 
itude (}>_,,  i.e. 

= ‘J’t  i.  6*M  (2-7) 

If  the  receiver  is  located  east  of  the  transmitter  the  positive 
sign  is  used  otherwise  the  negative  sign  is  applied.  The  coordi- 
nates of  the  midpoint  thus  found  are  compared  with  the  coordinates 
of  the  grid  points  at  which  ionospheric  models  are  given.  The 
profile  corresponding  to  the  grid  point  having  the  smallest  dif- 
ference in  coordinates  is  chosen  to  represent  the  profile  at  the 
midpoint  of  the  path. 
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The  midpoint  profile  selected  in  this  manner  is  approximated 
by  segments  of  a second  degree  polynomial  which  for  the  ith  seg- 
ment has  the  form  given  by  (2.1).  The  coefficients  in  equation 
(2.1)  are  found  by  making  sure  that  both  the  density  and  its 
derivatives  are  continuous  in  going  from  one  segment  to  another. 
Each  segment  value  corresponds  to  the  height  increment  dictated 
by  the  composite  ionospheric  profile.  Utilizing  equation  (2.1) 
we  find  analytical  expressions  for  the  ground  distance  D and  the 
group  path  P'.  Neglecting  the  effects  of  the  Earth's  magnetic 
field  and  collisions,  the  ground  distance  and  the  group  path 
can  be  expressed  in  the  form 


D = 2 


r cos  6 dr 
0 0 

r[r2p2-rQ2  cos2  gQ]: 


(2.8) 


P’  = 2 


(2.9) 


[r2u2-rQ2  cos2  ]'r 


where  rfc  is  the  radial  distance  from  the  Earth  center  to  ray 
apogee,  is  the  ray  elevation  angle,  and  p is  the  refractive 
index  of  the  medium.  The  refractive  index  p and  the  plasma  fre- 
quency fp  are  related  through 


p2  = 1 - (f  /f)2 

Jr 


(2.10) 


Since  the  density  N is  proportional  to  the  square  of  the  plasma 
frequency,  we  can  substitute  (2.1)  in  (2.10)  to  obtain 


1 “ J2  (ai+bi  + gi) 


(2.11) 


I 


Through  substitution  of  (11)  in  (8)  and  (9)  , the  ground  distance 
and  the  group  path  can  be  written  in  the  form 


D = D + 


° Z 

i=l 


Di  + Df 


:2.12a) 


P*  + 

o 


P!  + P' 


(2.12b) 


The  terms  Dq  and  P^  in  (2.12)  are  evaluated  from  the  earth  sur- 
face up  to  the  base  of  the  composite  ionospheric  profile.  The 


terms 


I °i  na  I n 

i=l  i=l 


, are  evaluated  from  the  base  of  the  com- 


posite profile  up  to  layer  n just  below  the  layer  containing  the 
reflection  height.  The  last  terms  and  P£  are  the  contribu- 
tions from  the  top  of  the  nfc^  layer  up  to  the  reflection  height 
of  the  ray.  Explicitly,  the  terms  in  (2.12)  are 


, lr  cos  8 I 

D = 2 r [cos - _g  ] 

o o I rb  / oJ 


0 ■ 2 r o I>/(rb/r0)  2-cos260-sin80] 


(2.13a) 


(2.13b) 


ri+l  r 2 cos  6 dr 

2 2 " i=1'2' 

[A. r +B . r+G. ]r 
1 1 x 


(2.14a) 


^ r i-1,2, 

[A.  rz+B  . r+G. 
l i l 


(2.14b) 
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and 


Df  = 2 


r cos3  dr 


r [A  r2  +B  r+G  ]£ 
n n n 


(2.15a) 


= 2 


r dr 


(2.15b) 


[A  r2  +B  r+G  ]7 
n n n J 


n 


where  r^  is  the  base  radius  of  the  composite  ionospheric  profile, 
and 


Ai  - i - V£' 


B.  = b./f 
1 1 


(2.16) 


G.  = g./f  -r  cos  6 

1 0 o 


Analytical  expressions  for  the  integrals  in  (2.14)  and  (2.15)  are 
readily  available  from  standard  integral  tables.  The  resulting 
analytical  expressions  together  with  (2.13)  are  programmed  on 
the  computer  under  subroutine  FITT.  Given  the  elevation  angle 


3 , the  oblique  frequency  f,  and  the  density  profile  N,  the  sub- 


routine FITT  calculates  the  corresponding  ground  distance  and 
group  path. 

Since  we  are  seeking  all  possible  homing  solutions,  we  need 
to  generate  a table  of  ground  distances  versus  elevation  angles 
corresponding  to  the  midpoint  density  profile.  Due  to  the  sensi- 
tivity of  the  trapping  angle  to  changes  in  the  ionospheric  model 


we  take  the  penetration  angle  3p  as  the  maximum  elevation  angle 


possible.  The  penetration  angle  Bp  is  the  solution  of  the  equa- 


tion 
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(2.17) 


(2.18) 


and  the  range  of  elevation  angles  is 

0 < 8 < Bp  (2.19) 

The  interval  in  (2.19)  is  subdivided  into  50  subintervals  of 
elevation  angles.  For  each  of  the  resulting  51  elevation  angles 
the  ground  distance  and  the  group  path  are  computed  through  sub- 
routine FITT.  The  generated  values  of  ground  distance  and  group 
path  together  with  their  corresponding  elevation  angles  are 
assembled  in  a table.  The  table  is  then  scanned  to  locate  the 
two  successive  entries  within  which  the  ground  distance  between 
the  transmitter  and  receiver  is  located.  For  each  pair  of  entries 
thus  found  we  perform  linear  interpolation  to  locate  a possible 
homing  solution  within  a specified  tolerance.  We  assume  that 
the  ground  distance  and  the  elevation  angle  within  the  two  entries 
are  linearly  related  through 

D = a + bB  (2.20) 

Starting  with  the  two  entries  of  ground  distances  and  their  cor- 
responding elevation  angles  the  coefficients  a and  b are  found 
and  a new  elevation  angle  and  ground  distance  are  computed.  A 
comparison  test  is  then  carried  out  between  the  new  ground  dis- 
tance and  the  exact  ground  distance,  D-,^.  If  the  difference  is 
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larger  than  the  specified  ground  distance  tolerance,  6D,  then  the 
procedure  of  calculating  the  coefficients  in  (2.20)  utilizing 
the  two  closest  values  of  ground  distances  to  D and  their  cor- 

responding  elevation  angles  is  repeated  until  | D-Dmr>  | < 6D. 

IK  — 

The  number  of  interpolations  is  limited  to  ten  (10)  trials  for 
finding  the  approximate  elevation  angle,  otherwise  homing  of  the 
ray  is  said  to  be  not  possible.  The  specified  ground  distance 
tolerance,  6D,  is  an  input  parameter  in  W(387)  of  the  ray  tracing 
program. 

Every  possible  homing  solution  of  elevation  angles  is 
assembled  in  a table.  Then,  through  the  three-dimensional  ray 
tracing  program  these  elevation  angles  are  refined  to  obtain  the 
corresponding  true  elevation  angles  that  will  home  the  ray.  In 
some  cases  true  elevation  angles  are  not  possible.  In  either 
situation  a message  is  printed  to  show  whether  or  not  a homing 
solution  has  been  achieved.  The  complete  procedure  described  in 
this  section  is  simulated  on  the  computer  under  subroutine  HOME. 

2.2.3  Approximate  Elevation  Angle  - Multiple  Layer  Ionosphere 

In  a single  layer  ionosphere  there  are  at  most  two  approxi- 
mate initial  elevation  angles,  one  for  the  low  ray  and  the  other 
for  the  high  ray.  In  a multiple  layer  ionosphere,  the  number  of 
approximate  initial  elevation  angles  depends  upon  the  number  of 
layers  in  the  given  ionospheric  profile.  The  approximate  eleva- 
tion angle  solutions  are  designated  by  first  layer  low  or  high 
ray,  second  layer  low  or  high  ray,  third  layer  low  or  high  ray, 
and  fourth  layer  low  or  high  ray.  In  our  study  we  selected  four 
as  the  highest  number  of  layers.  This  restriction  could  be  removed 
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with  minor  modifications  on  the  computer  code  in  subroutine  HOME. 

Whether  the  given  ionospheric  profile  is  single  or  a multi- 
layered one,  the  procedure  of  finding  the  approximate  elevation 
angle  is  the  same  as  the  one  described  in  section  2.2.2.  The 
computer  code  does  not  differentiate  between  single  and  multi- 
layered profiles  and  it  is  written  for  a four-layered  ionosphere. 

A sample  of  the  ground  distance  versus  elevation  angle  curve  for 
a four-layered  ionosphere  is  shown  in  Figure  2.4. 

2.2.4  Refinement  of  the  Elevation  Angle 

Thus  far  we  have  discussed  the  computation  of  the  approximate 
elevation  angles.  In  this  section  we  focus  our  attention  on  the 
procedure  to  refine  these  approximate  elevation  angles  through 
actual  ray  tracing. 

Let  the  exact  ground  distance  between  the  transmitter  and 
receiver  be  DTR.  Then  starting  with  one  of  the  tabulated  approx- 
imate elevation  angles,  8^,  we  trace  one  ray  through  the  given 
ionospheric  model  utilizing  the  three  dimensional  ray  tracing 
program.  The  ground  distance  corresponding  to  8^  is  D^.  Utiliz- 
ing the  table  of  ground  distances  and  elevation  angles  generated 
in  the  previous  section  we  increment  or  decrement  elevation  angle 

B 

8^.  The  value  and  sign  of  the  increment  depends  on  the  relative 
location  of  D.  with  respect  to  D in  the  ground  distance  versus 
elevation  angle  table.  With  the  new  elevation  angle  62  we  com- 
pute D2  through  the  ray  tracing  program.  The  ground  distance, 

Dtr,  must  then  be  located  either  above  and  1 below  and  D2 , 

' or  in  between  D.  and  D„ . For  the  cases  where  D is  above  or 

J . Z IK 

below  and  the  elevation  angles  and  their  corresponding  ground 
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distances  are  adjusted  through  linear  interpolation  in  accordance 

with  equation  (2.20)  until  D is  either  located  between  D.  and 

X R X 

D2  or  such  a condition  cannot  be  achieved.  In  the  latter  situa- 
tion the  elevation  angle  found  through  (2.20)  lies  outside  the 
range  of  elevation  angles  set  for  the  ray  in  a multiple  layer 

ionosphere.  In  the  event  that  D cannot  be  located  between  D. 

TR  1 

and  , homing  of  the  ray  cannot  be  accomplished  and  one  of  the 
statements  'High  angle  ray'  or  'Discontinuity  in  the  ray  traced 
range  - Beta  curve  or  range  too  close  to  the  skip  distance'  is 
printed  from  subroutine  ADJUST. 

Let  us  assume  that  we  can  locate  D„d  between  D.  and  D0  then 
we  can  find  63  through  linear  interpolation  on  8^,  D^ , ^ and  D2 . 
With  8 ^ we  calculate  a new  ground  distance  D^ • If  the  difference 
between  DTR  and  D^  is  less  than  a specified  ground  distance  toler 
ance,  then  6^  is  the  desired  homing  elevation  angle  except  for 
azimuthal  angle  corrections.  The  ground  distance  tolerance,  6D, 
is  an  input  parameter  and  is  specified  in  W(387).  However,  if 
the  difference  between  DTR  and  D^  is  greater  than  6D  then  we  need 
to  correct  for  the  ground  distance  discrepancy.  Since  the  depen- 
dence of  the  ground  distance  on  the  elevation  angle  is  known  to 
be  nonlinear,  we  let 

D.  = a + a. 8 • + a 6?  i=l,2,3  (2.21) 

1 O XI  2 X 

The  coefficients  aQ , a^,  and  a2  are  computed  by  inverting  the 
matrix  resulting  from  the  substitution  of  ground  distances  D^ , 

, D2 , D^  and  their  corresponding  elevation  angles  8^,  83  > 63*  The 

new  elevation  angle  is  then  given  by 

* 
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If  the  quantity  under  the  radical  sign  in  (2.22)  is  negative, 
then  we  cannot  find  an  elevation  angle  and  an  appropriate  message 
is  printed.  Equation  (2.22)  yields  two  solutions,  8 + and  B_. 


In  order  to  decide  whether  8+  or  8_  is  the  desired  elevation 
angle  we  set  up  the  following  criterion.  First,  we  take  the 
absolute  differences  between  Dmr,  and  D.  , D0 , D,  and  the  result- 
ing  three  difference  values  are  compared  with  each  other.  The 
elevation  angle  8^,  &2'  or  83  corresponding  to  the  smallest  dif- 
ference is  then  selected.  The  elevation  angles  B+  and  B_  are 
then  compared  with  the  selected  elevation  angle.  The  one  yield- 
ing the  smaller  difference  is  chosen  as  the  new  elevation  angle 
i.e.  B^=B+  or  B^=  B_.  With  8^  we  trace  another  ray  and  find  . 

If  the  difference  between  DTR  and  is  within  the  specified  tolerance 
6D,  then  8*  is  the  homing  angle  except  for  possible  azimuthal 
corrections.  However,  if  the  difference  between  DTR  and  is  the 
largest  difference  then  we  cannot  home  the  ray  and  the  message 
'Discontinuity  in  the  ray  traced  range “beta  curve  or  range  too 
close  to  the  skip  distance'  or  'High  angle  ray'  is  printed.  On 
the  other  hand,  if  D4  is  closer  to  DTR  than  any  or  all  of  , D 2, 
then  the  ground  distance  , D 2,  or  yielding  the  largest 
absolute  difference  with  DTR  is  replaced  by  and  its  correspond- 
ing elevation  angle  by  8^.  The  procedure  starting  with  equation 
(2.21)  is  repeated  to  find  a new  elevation  angle  and  a new  ground 
distance.  The  comparison  steps  are  carried  out  until  the  ground 
distance  tolerance  criterion  is  met  or  a message  is  printed.  The 
number  of- allowable  tries  to  find  the  homing  angle  is  controlled 
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by  an  input  parameter  in  W(386). 

Once  the  ground  distance  tolerance  criterion  is  satisfied 
a first  order  elevation  angle  that  will  home  the  ray  to  the  re- 
ceiver is  said  to  be  found  except  for  possible  azimuthal  devia- 
tion correction.  The  azimuthal  deviation  is  defined  as  the  dif- 
ference between  azimuth  of  the  computed  receiving  point  from  the 
transmitter  and  the  azimuth  of  the  intended  receiving  point  from 
the  transmitter.  If  the  azimuthal  deviation  of  the  ray  is  within 
the  calculated  azimuthal  tolerance,  6A,  the  homing  of  the  ray  is 
completed.  Otherwise,  the  azimuth  of  transmission  has  to  be  cor- 
rected in  order  to  satisfy  the  azimuthal  tolerance  condition. 

The  azimuthal  tolerance,  6A,  is  computed  with  the  help  of  Figure 
2.5.  In  Figure  2.5,  we  show  the  transmitter  T,  the  receiver  R, 
the  computed  receiver  R' , and  the  angles  Y2 ' ^3  subtenc3ec3  at 

the  earth  center  opposite  arcs  TR,  TR1  , and  RR'  or  6D  respectively. 
Applying  the  cosine  law  to  the  spherical  triangle  TRR'  we  obtain 


cos 


Y^  = cos  Yg  cos  Y2+  sin  Y^  sin  Y2  cos 


(2.23) 

If  we  let  Y1=Y2  = DTR/r0  311(3  Y3=6D/ro,  then 

cos  6 A = [cos  (6 D/r  ) - cos2  (Dmn/r  )]  / sin2  (D  /r  ) 


TR'  0' 


TR'  0' 

(2.24) 


Since  6D  is  much  smaller  than  rQ , the  argument  of  the  cosine  func- 
tion, 6D/rQ  is  very  small.  Expanding  this  term  and  retaining  two 
terms  of  the  expansion,  (2.24)  takes  the  form 


cos  6 A = 1 - 


6 D 


r sin(Dm„/r  )J 
0 TR  0 


(2.25) 
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Since  the  azimuthal  tolerance  6A  is  also  small,  we  expand  the 
left  hand  side  of  (2.25)  retaining  two  terms  of  the  expansion. 
The  resulting  expression  for  6A  is 


rQ  sin  (C-TR/r  ) (2.26) 

For  each  ray  homed  in  ground  distance  a comparison  test  is  per- 
formed between  the  ray  azimuth  and  the  computed  transmi tter- re- 
ceiver azimuth.  If  the  ray  azimuthal  deviation  is  within  the 
azimuthal  tolerance  6A  then  homing  is  achieved  and  control  is 
transferred  to  another  activity  within  the  ray  tracing  program. 
However,  if  the  ray  azimuthal  deviation  is  larger  than  6A  we 
adjust  the  azimuth  of  transmission  by  the  amount  of  the  ray  azi- 
muthal deviation.  With  a new  azimuth  of  transmission  and  the 
same  elevation  angle  we  repeat  the  complete  procedure  of  ground 
distance  homing  and  find  a new  homing  angle.  The  ray  azimuthal 
deviation  corresponding  to  this  new  homing  angle  is  then  com- 
pared to  the  azimuthal  tolerance,  6A.  The  above  steps  are  re- 
peated until  both  ground  distance  tolerance  and  azimuthal  toler- 
ance criteria  are  satisfied  or  a message  is  printed. 

2.2.5  Group  Path  Homing 

The  capabilities  of  the  three-dimensional  ray  tracing  pro- 
gram was  extended  to  include  homing  of  the  group  path.  The  pro- 
cedure described  in  the  ground-to-ground  homing  case  is  also  used 
for  the  group  path  homing.  The  only  difference  being  in  the  para- 
meters supplied  to  the  ray  tracing  program  through  the  W-array 

# 
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The  parameters  needed  to  perform  group  path  homing  are  the 
transmitter  coordinates,  the  azimuthal  angle  of  transmission,  the 
oblique  frequency  of  transmission  and  the  value  of  the  homed  in 
group  path.  The  homed  in  group  path  is  supplied  through  W(394). 

In  the  event  that  group  path  homing  is  not  desired,  then  W(394) 
should  be  set  to  zero.  An  example  of  group  path  homing  is  dis- 
cussed in  the  next  section. 

2.2.6  Examples  and  Discussion 

In  the  preceding  section  we  discussed  in  detail  the  techni- 
que through  which  the  ground-to-ground  homing  of  the  ray  is 
achieved.  In  order  to  illustrate  the  homing  procedure  we  pre- 
sent three  examples.  The  first  example  is  for  a single  layer 
ionosphere,  the  second  example  is  for  a two  layered  ionosphere, 
and  the  third  example  is  for  group  path  homing.  In  all  cases  the 
ray  is  traced  through  the  Air  Force  supplied  ionospheric  model. 
This  model  gives  the  electron  density  profile  on  a geomagnetic 
longitude-geomagnetic  colatitude  grid  spanning  from  -130 °E  to 
-110 °E  in  geomagnetic  longitude  and  0°  to  54°  in  geomagnetic  co- 
latitude. The  increments  in  longitude,  colatitude  and  height  are 
5°,  3°  and  10  km  respectively.  The  base  height  in  all  cases  is 
90  km  extending  upward  to  600  km.  Note  that  these  increments  are 
very  coarse  for  accurate  ray  tracing  even  with  careful  interpol- 
ation routines.  This  causes  some  difficulty  as  discussed  later. 

Example  1.  Single  Layer  Ionosphere 

Let  the  transmitter  and  receiver  geographic  coordinates  be 
located  at  (125°  W,  78°N)  and  (185°w,  56°N)  respectively.  For  this 
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configuration  the  ground  distance  DmD  = 3296.55  km  and  the  azi- 
muthal  angle  of  transmission  is  258.2  degrees.  Since  the  ion- 
ospheric profile  grid  points  are  given  in  geomagnetic  coordinates 
we  transform  the  transmitter  and  receiver  geographic  coordinates 
to  obtain  colatitudes  of  10.81658  and  40.06548  degrees  and  lon- 
gitudes of  114.47052  and  128.20226  degrees  east.  Utilizing  equa- 
tions (2.4)  , (2.5)  , and  (2.7)  the  geographic  and  geomagnetic  co- 
ordinates of  the  midpoint  are  found  to  be  (-169.81,  69.18)  longi- 
tude and  latitude,  (-125.12,  25.33)  longitude  and  colatitude  re- 
spectively. A comparison  between  the  geomagnetic  coordinates  of 
the  midpoint  and  the  given  ionospheric  profile  results  in  the 
selection  of  the  density  profile  located  at  (-125.0,  24.0).  For 
an  oblique  frequency  of  transmission  of  20  MHz  equation  (2.18) 
yields  the  penetration  angle  of  14.236  degrees.  Then,  the  in- 
terval of  elevation  angles  from  zero  to  14.236  degrees  is  divided 
into  50  intervals.  For  each  of  the  51  resulting  elevation  angles 
the  ground  distance  and  group  path  are  calculated  through  equa- 
tions (2.13),  (2.14),  (2.15)  and  (2.16)  utilizing  the  density 
profile  of  the  midpoint  located  at  (-125.0,  24.0).  The  result 
of  this  calculation  is  shown  in  Figure  2.6.  For  the  specified 
ground  distance  tolerance  of  5 km,  figure  6 shows  that  the  ap- 
proximate initial  elevation  angle  was  found  to  be  3.312  degrees. 

Figure  2.7  shows  the  steps  taken  in  the  refinement  procedure 
and  the  eventual  homing  of  the  ray.  The  top  portion  of  Figure  2.7 
displays  the  ground  distance  versus  elevation  angle  homing  steps. 
The  figure  shows  that  the  ray  is  homed  in  ground  distance  in  the 
5th  step.  However,  the  bottom  portion  of  the  figure  also  shows 
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Figure  2.6.  Example  1 illustrating  the  ground-to-ground  homing  using  the  Air 
Force  supplied  model  ionosphere.  The  example  shows  how  the 
initial  elevation  is  determined. 
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that  the  azimuthal  angle  of  the  ray  is  not  within  the  calculated 
tolerance.  Prior  to  final  homing  of  the  ray,  there  were  four 
azimuthal  corrections  with  no  ground  distance  adjustments  since 
for  each  azimuth  the  ground  distance  was  homed  in. 

Example  2.  Two  Layer  Ionosphere 

In  a single  layer  ionosphere  there  are  at  most  two  initial 
homing  elevation  angles  while  in  a two  layer  ionosphere  there  are 
four  initial  homing  angles.  Following  example  1 we  let  the  trans- 
mitter and  receiver  geographic  coordinates  be  (-175. 0 °E , 68.0°N) 
and  (-150. 0 °E , 72.0°N)  respectively.  The  ground  distance  D for 
such  a configuration  is  1039.36  km  and  the  azimuthal  angle  of  trans- 
mission is  53.51  degrees.  Upon  transformation,  the  geomagnetic 
coordinates  of  the  transmitter  and  receiver  are  found  to  be 
(-127.7972,  27.21986)  and  (-114.25255,  19.5317)  longitude  and 
colatitude.  The  geographic  coordinates  and  the  corresponding 
geomagnetic  coordinates  of  the  midpoint  are  found  to  be  (-163.72, 
70.43)  longitude  and  latitude,  (-122.09,  23.22)  longitude  and 
colatitude  respectively.  The  density  profile  at  the  midpoint  is 
then  located  at  (-120.0,  24.0)  longitude  and  colatitude  in  the 
ionospheric  profile.  For  an  oblique  transmission  frequency  of 
7 MHz  the  rays  do  not  penetrate  the  ionosphere  and  the  penetra- 
tion angle  is  set  to  ninety  (90)  degrees.  Upon  subdividing  the 
interval  of  elevation  angles  from  zero  to  ninety  degrees  into  50 
intervals,  the  ground  distances  and  group  paths  of  the  resulting 
51  values  of  elevation  angles  are  calculated  through  subroutine 
FITT.  The  result  of  this  calculation  is  shown  in  Figure  2.8. 

For  a ground  distance  tolerance  6D=2  km  Figure  2.8  shows  that 
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Figure  2.8.  Example  2 illustrating  the  ground-to-ground  homing  for  rays  reflected  from 
a two-layer  ionosphere.  Note  that  for  a ground  range  of  1039.36  km,  three 
approximate  solutions  (indicated  by  circle  A,  circle  B and  circle  C)  in  the 
elevation  angle  exist  in  this  case. 
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there  are  3 approximate  initial  elevation  angles.  These  eleva- 
tion angles  are  7.415,  13.093,  and  20.566  degrees  and  they  are 
designated  by  A,  B,  and  C respectively.  For  each  of  these  eleva- 
tion angles  we  use  the  three  dimensional  ray  tracing  program  to 
refine  them.  Figure  2.9  displays  the  ground  distance  versus 
elevation  angle  in  the  homing  process  for  A and  C.  The  circled 
numbers  are  the  steps  taken  to  obtain  the  homing  angle.  Homing 
for  B cannot  be  achieved  since  it  corresponds  to  a high  angle 
ray.  In  Figure  2.10  the  geomagnetic  colatitude  versus  geomag- 
netic longitude  is  plotted  for  A and  C.  For  case  A the  azimuthal 
angle  of  transmission  does  not  require  any  correction  and  the 
homing  angle  is  found  by  linear  interpolation  on  steps  2 and  3 
without  recourse  to  matrix  inversion.  For  case  C the  azimuthal 
angle  is  corrected  twice  in  order  to  meet  azimuthal  tolerance 
criterion  corresponding  to  ground  distance  tolerance  of  2 km. 

Example  3.  Group  Path  Homing 

Using  the  transmitter  geographic  coordinates  (-150.0,  78.0) 
longitude  and  latitude,  the  oblique  transmission  frequency  of 
12  MHz,  and  the  azimuthal  angle  of  transmission  of  209.4  degrees 
we  calculated  the  coordinates  of  the  midpoint  and  the  penetration 
angle.  The  geographic  and  geomagnetic  coordinates  of  the  mid- 
point are  found  to  be  (-164.97,  66.86)  longitude  and  latitude, 
and  (-119.04,  26.59)  longitude  and  colatitude  respectively.  The 
penetration  angle  is  found  to  be  38.9  degrees.  The  calculated 
ground  distances  and  group  paths  for  the  51  values  of  elevation 
angles  from  zero  to  38.9  degrees  are  shown  in  Figure  2.11.  For 
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the  specified  group  path  value  of  2654.08  km  in  W(394)  the  figure 
shows  two  initial  elevation  angles  for  which  homing  of  the  group 
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Figure  2.9.  Continuation  of  Example  2 shown  in  Fig.  2.8  illustrating 
the  ground  distance  homing  for  circle  A and  circle  C 
using  3D  ray  tracing. 
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rt'Mm  2.10.  Continuation  of  Example  2 illustrating  azimuthal  correction 
for  final  homing  of  the  ray  on  the  receiver. 
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path  could  be  achieved. 

Figure  2.12  displays  the  steps  in  the  group  path  homing 
process  for  both  elevation  angles  of  2.758  and  5.679  degrees. 

The  upper  plot  shows  that  the  given  group  path  already  lies  be- 
tween steps  2 and  3.  Step  4 is  obtained  through  linear  inter- 
polation and  it  coincides  with  the  specified  group  path.  How- 
ever, the  azimuthal  deviation  of  the  ray  is  not  within  the  cal- 
culated azimuthal  tolerance.  A correction  on  the  azimuthal  angle 
of  transmission  yields  step  5.  Then,  starting  with  step  5 and  using 
increments  of  the  previously  calculated  ground  distances  and  eleva- 
tion angles  we  arrive  at  step  6.  Since  the  specified  group  path 
lies  between  steps  5 and  6,  linear  interpolation  on  them  yields 
values  of  step  7 which  meets  the  tolerance  criteria  and  homing 
is  thus  complete  for  the  first  layer  high  angle.  In  the  lower 
graph  the  specified  group  path  is  higher  than  the  values  of  steps 
1,  2,  3,  4,  and  5.  Therefore,  all  the  values  of  steps  1,  2,  4, 
and  5 are  discarded  and  only  values  of  steps  3 and  6 are  retained. 
Linear  interpolation  on  these  values  yields  step  7 which  satis- 
fies the  tolerance  criteria  and  hence  the  desired  homing  elevation 
angle . 

The  above  three  examples  illustrated  successful  homing  of  the 
ray.  When  homing  is  successful,  a diagnostic  stating  that  homing 
is  achieved  is  printed  together  with  the  homed  in  parameters. 

When  homing  is  not  successful,  a diagnostic  stating  that  homing 
cannot  be  achieved  and  the  reason  why  it  cannot  be  homed  is  printed. 
There  are  several  reasons  for  which  rays  cannot  be  homed. 

i)  high  angle  rays  which  are  too  sensitive  to  ionospheric 


ii- 
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parameters  and  small  increments  in  elevation  angles. 

ii)  ground  distance  too  close  to  the  skip  distance  or 
discontinuity  in  the  ray  traced  ground  distance  versus 
elevation  angle  curve.  These  two  reasons  cannot  be 
separately  distinguished. 

iii)  the  specified  number  of  trials  exceeded. 

Up  to  this  point  we  are  only  concerned  with  the  single  hop  mode 
of  propagation.  The  extension  of  the  ground-to-ground  homing  to 
the  two-hop  mode  of  propagation  has  been  tried  and  found  to  be 
only  partially  successful.  The  two  hops  are  assumed  to  be  similar 
or  mixed.  Initially,  the  two  hops  are  considered  to  be  similar 
and  the  two  sets  of  ground  distance  versus  elevation  angle  curves 
corresponding  to  the  ionospheric  profiles  at  the  two  midpoints 
are  generated.  Then,  the  initial  elevation  angle  required  in 
the  homing  procedure  is  found  by  searching  the  two  curves  for 
an  elevation  angle  for  which  the  sum  of  the  two  ground  distances 
is  the  desired  ground  distance.  This  initial  elevation  angle  if 
found  is  used  in  the  same  manner  as  for  the  single  hop  case  to 
carry  out  the  homing.  Utilizing  the  above  technique  we  had  success 
in  homing  for  a few  cases  while  we  encountered  difficulties  in 
the  majority  of  the  cases  studied.  These  difficulties  may  be 
attributed  to 

i)  the  coarseness  of  the  given  ionospheric  profile 

ii)  the  interpolation  procedure  in  the  three-dimensional 
ray  tracing  program 

iii)  the  technique  developed  for  the  two  hop. 

Further  study  is  necessary  in  order  to  achieve  two-hop  homing. 


2.3  Ground-Satellite  Homing 

When  the  transmission  frequency  is  much  higher  than  the 
critical  frequency  of  the  given  ionospheric  profile  the  ray  pene- 
trates the  ionosphere.  The  geometries  of  the  two  possible  con- 
figurations are  shown  in  Figures  2.13  and  2.14.  In  Figure  2.13 
the  transmitter  is  below  the  receiver  and  the  configuration  is 
called  ground-to-satellite  homing.  The  satellite-to-ground  homing 
configuration  is  shown  in  Figure  2.14.  In  either  case  our  objec- 
tive is  to  home  the  ray  to  the  receiver  within  a specified  ground 
distance  tolerance  and  a computed  azimuthal  tolerance.  The  follow- 
ing discussion  is  applicable  to  either  configuration. 

2.3.1  Approximate  Elevation  Angle 

We  assume  that  the  transmitter  and  receiver  coordinates  are 
given  in  east  longitude  and  latitude  north  in  degrees  and  their 
heights  above  the  earth  surface  in  km.  Then,  to  a first  approx- 
imation we  calculate  the  initial  or  approximate  elevation  angle 
for  a straight  line  path  between  the  transmitter  and  receiver. 

Let  0T,  0R,  <J>T,  be  the  transmitter  and  receiver  colat- 

itudes and  longitudes  respectively.  Compute  the  cartesian  co- 
ordinates of  the  transmitter  and  receiver  through  the  transfor- 
mation 

x = r sin  0 cos 
y = r sin  0 sin  $ 

z = r cos  0 (2.27) 

where  r=r  +h  and  h is  the  height  of  the  transmitter  or  receiver 

o ^ 

above  the  earth  surface.  From  Figures  2.13  and  2.14,  the  vectors 


38 


r 


R RECEIVER 


Figure  2.13.  Sketch  showing  the  geometry  of  ground-satellite  homing 
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CT  and  CR  are  given  by 


CT  = xT£+yT3+z^  (2.28) 

CR  = xRi+yRj+zRk 


Then  the  ground  distance  D between  the  transmitter  and  receiver 
can  be  found  either  through  the  use  of  the  cosine  law  equation 
(2.3)  or  by  taking  the  dot  product  of  the  vectors  in  (2.28)  , i.e. 


Y 


cos 


CT  • CR 
| CT  | | CR 


(2.29) 


The  ground  distance  DTR  projected  at  the  transmitter  radius  is 
given  by 


°TR  (ro+hT)Y 


(2. 30) 


In  order  to  find  the  elevation  angle,  we  define  the  straight 
line  path  by  the  vector  TR, 


TR  = CR  - CT 


(2.31) 


Applying  the  cosine  law  of  plane  trigonometry  to  triangle  CTR, 
angle  CTR  is  found  to  be 

t ctr  = cos-1 I(|tr|2+|ct|2)-|cr|2)/2|tr| I CT I ) 

(2. 32) 


and  the  approximate  elevation  angle  is  given  by 
8 = l CTR  - tt/2 


(2.33) 


In  the  ground-to-satellite  case  8 is  positive  while  in  the  satel- 
lite-to-ground case  8 is  negative.  The  above  procedure  is  pro- 
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grammed  in  subroutine  HOMES. 

2.3.2  Refinement  of  the  Elevation  Angle 

In  section  2.2.3  we  presented  in  detail  the  steps  used  to 
refine  the  approximate  elevation  angle  for  the  ground-to-ground 
configuration.  The  refinement  of  the  elevation  angle  for  both 
the  ground- to-sate Hi te  and  satellite-to-ground  is  basically  the 
same  as  that  of  the  ground-to-ground  case  except  for  the  initial 
elevation  angle  increment.  The  computer  code  of  ADJUST  is  used 
for  all  three  configurations.  The  initial  elevation  angle  incre- 
ment is  only  used  once  upon  entry  into  routine  ADJUST. 

Starting  with  the  known  value  B-^=8  of  the  approximate  straight 
line  path  between  the  transmitter  and  receiver  we  trace  one  ray 
and  obtain  the  ground  distance  D^ . In  order  to  find  a new  eleva- 
tion angle  B2  we  assume  a plane  earth  geometry  and  consider  the 
equivalent  triangle  TRA  in  Figure  2.15.  In  this  figure,  T is  the 
transmitter,  R is  the  equivalent  receiver,  which,  when  a perpen- 
dicular line  is  dropped  on  RC  from  T,  is  a distance  D km  away  and 
which  is  h km  above  the  foot  of  the  perpendicular  point  A as  shown 
in  Figure  2.15.  From  triangle  TRA,  the  approximate  elevation  angle 
8 is  given  by 

tan  8 = h/D  (2. 34) 

Differentiating  both  sides  of  the  equation  and  solving  for  the 
approximate  initial  increment  in  8 we  obtain  the  relation 

6 8 = sin  8 cos  8 6 D/D  (2.35) 

where  8=8 6D=DTR-D1,  and  D=DTR. 


Then,  with  an  elevation  angle 
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82=8^+6g  we  proceed  in  the  same  manner  as  that  described  in  sec- 
tion 2.2.3  to  find  the  true  homing  elevation  angle. 

2.3.3  Examples  and  Discussion 

In  order  to  illustrate  our  homing  technique  we  present  two 
examples,  one  for  ground- to-satellite  and  the  other  for  the  satel- 
lite-to-ground  case.  In  both  examples  we  studied  the  homing  tech- 
nique for  the  different  oblique  frequencies.  The  initial  eleva- 
tion angle  is  independent  of  the  frequency  of  transmission.  Since 
the  straight  line  path  approximation  approaches  the  true  path  for 
high  frequencies  we  expect  the  initial  elevation  angle  to  be  very 
close  to  the  true  homing  elevation  angle. 

Example  1.  Ground- to- sate  Hi  te . 

Let  the  transmitter  and  receiver  geographic  coordinates  be 
(-165.0,  72.0)  and  (-170.0,  56.0)  longitude  and  latitude  respec- 
tively. Also,  let  the  transmitter  and  receiver  heights  above  the 
earth  surface  be  0.0  and  560.0  km  respectively.  Then,  for  such 
a configuration  the  ground  distance  at  the  transmitter  radius  is 
1793.97  km,  the  azimuthal  angle  of  transmission  is  190.1  degrees, 
and  the  initial  approximate  elevation  angle  is  8.475.  The  obli- 
que transmission  frequencies  considered  for  this  example  were 
90,  170,  and  250  MHz.  For  each  of  these  frequencies  and  starting 
with  an  elevation  angle  of  8.475  degrees  we  utilize  the  ray  trac- 
ing program  through  subroutine  ADJUST.  The  result  of  the  calcu- 
lation is  presented  in  Figure  2.16.  From  Figure  2.16  we  note 
that  as  the  frequency  gets  higher  the  number  of  steps  needed  to 
achieve  homing  decreases.  We  also  note  that  neither  matrix 
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inversion  nor  linear  interpolation  is  needed  to  achieve  homing 
for  all  three  frequencies.  In  Figure  2.17  the  geomagnetic  co- 
latitude is  plotted  versus  the  geomagnetic  longitude  to  show  the 
homing  steps  for  the  three  frequencies.  For  all  frequencies  the 
figure  shows  that  no  azimuthal  correction  is  needed. 

Example  2.  Satellite- to-ground 

For  this  example  we  let  the  transmitter  and  receiver  be 
located  at  (-150.0,  78.0)  and  (-165.0,  60.0)  longitude  and  lat- 
itude respectively.  We  also  let  the  transmitter  and  receiver 
heights  above  the  earth  surface  be  at  550  and  0.0  km.  For 
these  geographic  coordinates  the  ground  distance  at  the  trans- 
mitter radius  is  2251.96  km,  the  azimuthal  angle  of  transmission 
is  203.87  degrees,  and  the  initial  approximate  elevation  angle 
is  -23.472  degrees.  For  each  of  the  oblique  frequencies  70, 

140,  and  210  MHz  we  used  routine  ADJUST  to  find  the  homing  ele- 
vation angle.  Figure  2.18  shows  the  ground  distance  versus  the 
elevation  for  all  frequencies  together  with  the  number  of  steps 
needed  to  achieve  homing.  For  the  70  and  140  MHz  it  takes  4 
steps  while  for  210  MHz  only  3 steps  are  needed.  One  linear 
interpolation  and  one  matrix  inversion  are  required  for  the  70 
and  140  MHz  while  one  linear  interpolation  is  carried  out  for 
210  MHz.  Figure  2.19  displays  the  geomagnetic  colatitude  versus 
geomagnetic  longitude  for  the  three  frequencies.  This  figure 
shows  the  number  of  steps  along  the  azimuth  of  transmission  for 
each  frequency.  Homing  for  all  frequencies  is  achieved  without 
azimuthal  corrections. 
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2.4  Minimum  Group  Path 

The  technique  of  backscatter  ionogram  inversion  utilizes 
the  values  of  the  minimum  group  path  computed  for  the  given  ionos- 
pheric profile.  Therefore,  it  is  necessary  to  extend  the  ray 
tracing  program  to  include  the  numerical  computation  of  the  mini- 
mum group  path.  The  complete  method  is  documented  in  subroutine 
GROUP  M. 


2.4.1  The  Chopping  Method 

We  assume  that  the  transmitter  location,  the  ionospheric 
model,  the  oblique  transmission  frequency,  and  the  azimuthal 
angle  are  given.  In  addition,  the  minimum  group  path  tolerance 
6P'  is  also  specified.  At  the  present,  the  minimum  group  path 
tolerance  is  internally  specified  with  a value  of  1 km.  With 
the  known  transmitter  coordinates  we  can  select  the  closest 
ionospheric  model  and  find  an  approximate  penetration  angle  8^. 
This  approximate  angle  is  found  through  equation  (18).  Utilizing 
the  ray  tracing  program  and  the  given  ionosphere  we  correct  the 
approximate  penetration  angle  until  8 ^ is  just  below  the  penetra- 
tion condition.  Since  8^  is  approximate  we  could  encounter  two 
main  possibilities;  either  8p  is  larger  or  smaller  than  the  true 
penetration  angle.  Very  seldom  8p  will  be  equal  to  the  true  pene- 
tration angle  and  this  situation  is  included  in  the  cases  where 

8^  is  larger  or  smaller.  For  the  case  where  8 is  larger  than 
P P 

the  true  penetration  angle  we  successively  decrement  8p  by  one 

percent  i.e.  ePi=o.9  96pi_if  i=l ,2 , 3 , . . . , and  obtain  8-j^  just  below 

8 . While  in  the  case  where  8 is  smaller  we  successively  incre- 
P P 

ment  8„  by  five  percent  i.e.  6 =1.058  , i=l,2,3,...  until  the 

P P±  Pi-1 


. i.' 
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ray  penetrates  the  ionosphere  and  then  we  successively  decrement 

8„  by  one  percent  and  obtain  3,  just  below  3 . 
p 1 p 

Associated  with  8-^  is  a group  path  P^'.  In  order  to  locate 
the  minimum  group  path  we  need  three  points  along  the  group  path 
versus  elevation  angle  curve.  The  general  behavior  of  this  curve 
is  shown  in  Figure  2.20.  Define  and  83  as  ninety  five  (95) 
and  ninety  (90)  percent  of  8-^  and  generate  their  corresponding 
group  path  values  and  through  ray  tracing.  A comparison 
test  is  then  performed  on  P^,  P^,  and  P^-  If  Pi>P2>P3  as  ;‘-n 
Figure  2.21a  we  discard  8-^  and  P^,  shift  indices  backward  and 
calculate  a new  83  equal  to  ninety  five  (95)  percent  of  the  old 
3^.  With  the  new  3 3 we  generate  a new  group  path  P^.  On  the 
other  hand,  if  P^<P^<P^  as  in  Figure  2.21b  we  discard  33  and 
P3,  shift  indices  forward  and  calculate  a new  equal  to  105 
percent  of  the  old  8-^.  With  this  new  B we  generate  a new  group 
path  P^.  In  either  case  we  repeat  the  comparison  tests  on  P^,  P^  , 
and  P!j  until  the  condition  P^>P^  and  P3>P2  is  sati-sfied. 

Let  us  assume  that  we  finally  arrive  at  the  situation  de- 
picted in  Figure  2.21c  where  the  condition  P’>P^  and  P3>P2  is 
satisfied.  Then,  in  order  to  decide  whether  the  minimum  group  path 
has  been  found  or  not  we  consider  the  following  steps; 

Step  1.  Utilizing  the  chopping  technique  we  take  3^  and  8^ 
at  the  mid  point  of  the  intervals  8-^,  S>2  and  &2'  ^3 
respectively.  Tracing  two  rays  with  8^  and  8^  we 
obtain  two  group  paths  P^  and  P^ . 

Step  2.  If  IP^-P^I^P'  then  we  transfer  to  actions  taken 

in  step  3;  otherwise,  we  have  arrived  at  the  mini- 
mum group  path  and  a decision  is  made  to  select  the 
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smallest  of 


smallest  of  P^  , P^  , and  P£. 

Step  3.  If  P^P^  then  we  concentrate  on  actions  taken  in 
step  4.  For  P,l<Pi,,  t^ie  interval  given  by  P^>p^ 
and  P2>P5  is  our  main  concern.  In  this  interval 
we  replace  the  values  of  3^/  $2'  Pi'  P2  ^Y  t^e 
values  &2>  £5'  pl> » P5  respectively  and  start  over 
from  step  1. 

Step  4.  If  I p4-p2  I ><5P'  then  we  transfer  to  actions  taken 

in  step  5.  Otherwise,  we  have  arrived  at  the  mini- 
mum group  path  and  a decision  is  made  to  select  the 

smaller  of  P'  and  Pi. 

2 4 

Step  5.  If  P^>P^  then  we  concentrate  on  the  interval  given 

by  P5>P2  an(3  P4>P2  replace  the  values  of  3^,  3^, 

P^,  P^  by  the  values  3^  , 3 4>  P^,  P4  respectively. 
Otherwise,  our  main  concern  is  the  interval  given 
by  P2>P4  an<3  pi>pJi-  In  this  interval  we  replace 


1 4 


the  values  B5,  S3,  P2 ' pa  ^Y  the  values  S>A, 


4'  p2  ' 


P4,  P^  respectively.  In  either  case  we  transfer 
to  step  1 and  start  over  again. 

Once  the  minimum  group  path  is  found,  control  is  transferred 
to  the  main  program  to  perform  a prescheduled  acitivity  in  accor- 
dance with  the  input  data  through  the  W array. 


2.4.2  Examples 

In  order  to  illustrate  the  technique  of  finding  the  minimum 
group  path  we  present  two  examples.  Both  examples  are  derived 
from  the  same  transmitter  location  at  -175  and  40  degrees  geo- 
graphic longitude  and  latitude  respectively.  In  the  first  example 
the  azimuthal  angle  of  transmission  is  330  degrees  and  the  oblique 
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frequency  of  transmission  is  12  MHz,  while  in  the  second  example 
the  azimuthal  angle  and  the  oblique  freq':2ncy  are  30  8 degrees  and 
10  MHz  respectively. 

Example  1. 

For  an  oblique  frequency  of  12  MHz  the  penetration  angle 
from  equation  (2.18)  is  found  to  be  52.91  degrees.  Starting 
with  8^=52. 9 we  generate  the  group  path  P^  through  ray  tracing. 
Following  the  discussion  in  section  2.4.1  we  take  95  and  90  per- 
cent of  and  define  them  as  S2  and  The  values  of  82  ana 

8 2 then  are  given  by  50.26  and  47.62  degrees.  The  corresponding 
group  path  values  and  P^  are  found  to  be  1077.37  and  1022.81 
km.  Since  P^P^P^  we  discard  8^  and  P^  and  shift  the  indices 
backward  to  obtain  8^=50.26,  P^=1077.37,  82=47.62  and  P2=1022.81. 
Taking  95%  of  47.62  degrees  we  generate  B3=45.24  and  its  corres- 
ponding group  path  P ^=995. 86.  From  the  values  thus  known  we 
still  have  Pj^P^P^-  Discarding  8^  and  P^,  taking  95%  of  45.24 
degrees  we  obtain  the  following  three  sets  of  values,  8^=47.62, 
P[=1022.81,  82=45.24,  P^=995.86,  83=4 2.98,  P^=981.11.  Since  the 
condition  Pi>P2>P3  is  still  satisifed  we  carry  out  the  same  opera- 
tions as  above  and  arrive  at  the  values  8^=45.25,  P ^=995. 86,  82= 
42.98,  P2=981.11,  83=40.83,  P3=973.56.  Comparison  of  the  group 
path  values  reveal  that  P^>P2>P3  is  the  prevailing  condition. 
Therefore,  the  next  set  of  values  are  8^=42.98,  P2=981.11,  82= 
40.83,  P2=9  7 3.  56  , 6 3=38.79  , P^=973.17.  Since  the  condition 
P1>P2>P3  "''S  we  carry  out  the  calculations  once  more 

and  arrive  at  the  situation  given  by  the  values  8^=40.83,  P^= 
973.56  , 82  = 38.  79  , P^=973.  17,  8 3=36.85  , P^=976.  87.  An  examination 
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of  the  group  path  values  showsthat  the  condition  P^>P^  and  P3>P2 
is  satisfied.  Following  tf  = chopping  method  steps  we  find  3^  and 
3^  at  the  midpoint  of  the  intervals  8^,  8^  ' and  £ ^ ^ ' respec- 

tively. With  the  values  of  6^=39.81  and  6,-  = 37.82  we  find  the 
group  path  values  P^=972.60  and  P^=974.07.  Going  to  step  2 of 
the  chopping  method  we  find  that  I P ’ -Pi  ! >6P  1 = 1 . Therefore,  we 

D Z. 

find  the  minimum  group  path,  it  is  either  P^,  P^  or  P^  whichever 
is  the  smallest.  In  this  case  the  minimum  group  path  is  given 
by  P^=972.60  and  the  elevation  angle  is  6. = 39. 81.  Figure  2.22 
shows  the  group  path  versus  elevation  angle  for  the  values  gen- 
erated under  this  example.  The  test  sequence  and  indices  shift- 
ing is  also  displayed  on  the  graph. 

Example  2. 

In  this  example  we  use  an  azimuthal  angle  of  308  degrees 
and  an  oblique  frequency  of  10  MHz.  The  result  of  the  calcula- 
tion, testing  and  the  value  of  the  minimum  group  path  are  dis- 
played in  Figure  2.23.  The  circled  numbers  beside  each  point  is 
the  sequence  calculation  number.  The  table  in  the  figure  presents 
the  sequence  of  operations  performed  before  converging  on  the 
minimum  group  path  value.  In  this  example  also  the  chopping  tech- 
nique is  applied  only  once  to  achieve  the  final  result. 

2.5  Computer  Programs 

During  the  course  of  the  study  we  augmented  the  3D  ray 
tracing  program  with  six  subroutines.  They  are  discussed  in 
the  following. 

2.5.1  General  Description 

For  each  of  these  subprograms  we  will  be  presenting 
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a description  of  their  main  purpose  and  the  functions  they  perform. 

Prior  to  describing  the  subprograms  we  present  a list  of  the 
controls  needed  to  successfully  run  the  three  dimensional  ray 
tracing  program  for  the  homing  cases  and  the  minimum  group  path 
calculation.  These  controls  are  either  internal  or  external  al- 
locations in  the  already  existing  W-array  input  data.  The  inter- 
nal allocations  are  equivalence  statements  in  the  subprograms 
and  there  is  no  need  to  specify  them.  Tne  external  allocations 
are  specified  by  the  user  in  the  input  data  of  the  W-array.  The 
internal  and  external  allocations  of  the  W-array  are : 

W Description  Internal  (In) 

External  (Ex) 


371  Control  used  for  penetration  conditions  (In) 

372  Geomagnetic  colatitude  of  the  ray  (In) 

373  Geomagnetic  longitude  of  the  ray  (In) 

374  Local  azimuthal  deviation  of  the  ray  (In) 

375  Radial  distance  to  the  transmitter  (In) 

376  ALPHA  (In) 

377  THO,  geomagnetic  colatitude  of  transmitter  (In) 

378  PHO,  goemagnetic  longitude  of  transmitter  (In) 

379  Azimuthal  deviation  of  the  ray  at  the  (In) 

transmitter 

0 regular  ray  tracing 

1 ground-to-ground  homing 

380  (Ex) 


2 ground-  to-s  ate  Hi  te  or  satellite-to-ground 
homing 

3 minimum  group  path 


381  Geographic  East  longitude  of  receiver  in  (Ex) 

, degrees 

382  Geographic  latitude  north  of  receiver  in  (Ex) 

. degrees 

i 

C 
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383  Height  of  the  ray  above  the  earth  surface  (In) 

384  Ground  distance  computed  in  PRINTR  (In) 

385  Ground  distance  computed  from  the  geometry  (In) 


of  the  problem 

386  Maximum  number  of  iterations  for  finding  (Ex) 

the  approximate  elevation  angle 

387  The  tolerance  allowed  between  the  ground  (Ex) 

distance  in  W(385)  and  calculated  ground 
distance 

389  Penetration  angle  used  in  homing  (In) 

390  Height  of  the  bottom  of  the  ionosphere  (Ex) 

above  earth 


391  Maximum  height  of  the  ionosphere  above  earth  (Ex) 

0 utilizes  the  given  ionospheric  profile 

393  (Ex) 

1 generates  a new  ionospheric  profile  based 
upon  the  given  quasi-parabolic  parameters 

39  4 Value  of  the  group  path  used  in  the  group  (Ex) 

path  homing 

Subroutine  HOME 
Purpose : 

The  HOME  subroutine  calculates  the  initial  approximate  ele- 
vation angle  in  the  ground-to-ground  homing  for  the  ground  distance 
and  the  group  path. 

Description : 

The  HOME  routine  calculates  several  parameters  and  generates 
tables  prior  to  obtaining  the  final  result  of  initial  approximate 
elevation  angles.  The  azimuthal  angle  of  transmission  and  the 
exact  ground  distance  are  computed  from  the  given  transmitter 
and  receiver  coordinates.  The  midpoint  between  the  transmitter 
and  receiver  is  found  and  the  electron  density  profile  at  this 
midpoint  is  extracted  from  the  given  ionospheric  profile.  With 
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the  critical  frequency  of  the  midpoint  profile  and  the  given 
oblique  frequency  of  transmission  the  penetration  angle  is  com- 
puted from  equation  (2.18).  Then,  the  elevation  angle  interval 
from  zero  to  this  penetration  angle  is  subdivided  into  50  inter- 
vals thus  generating  51  values  of  elevation  angles.  For  each 
value  of  elevation  angle  in  the  interval  a ground  distance  and 
a group  path  value  are  calculated  from  the  analytical  expres- 
sions for  a quasi-parabolic  density  profile.  These  analytical 
expressions  are  programmed  in  subroutine  FITT.  Through  this  pro- 
cedure a table  of  elevation  angles,  ground  distances,  and  group 
paths  is  assembled. 

The  exact  ground  distance  is  then  compared  to  the  ground  dis- 
tance values  in  the  table.  If  the  exact  ground  distance  is  lower 
or  higher  than  the  ground  distances  in  the  table,  then  no  approx- 
imate elevation  angles  can  be  found.  However,  if  the  exact  ground 
distance  is  located  between  two  ground  distances  in  the  table, 
we  interpolate  linearly  to  find  an  approximate  elevation  angle. 
Since  there  might  be  more  than  one  homing  solution  we  scan  through 
the  table  and  locate  all  possible  elevation  angles. 

The  HOME  subroutine  is  capable  of  storing  approximate  ele- 
vation angles  for  a four  layered  ionosphere.  In  addition,  this 
subroutine  has  been  mainly  written  for  the  single  hop  mode  of 
propagation.  The  two  hop  mixed  mode  of  propagation  is  already 
included  as  described  in  section  2.2.6. 

Subroutine  HOMES 
Purpose : 

The  HOMES  subroutine  calculates  the  initial  approximate  ele- 
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vation  angle  for  a straight  line  path  in  the  ground-to-satellite 
and  the  satellite-to-ground  configurations. 

Description : 

Given  the  transmitter  and  receiver  coordinates  and  the  obli- 
que transmission  frequency  subroutine  HOMES  computes  the  azi- 
muthal angle  of  transmission  and  the  ground  distance  projected 
at  the  transmitter  radius.  Assuming  a straight  line  path  between 
the  transmitter  and  receiver,  the  approximate  elevation  angle  is 
found  from  the  triangle  in  the  plane  containing  the  transmitter, 
the  re  ce  i ve  r , an  d the  e a r th  cen  te  r . 

Subroutine  FITT 
Purpose : 

Given  an  elevation  angle  routine  FITT  calculates  the  corres- 
ponding ground  distance  and  group  path  from  analytical  expressions 
for  a quasi-parabolic  density  profile. 

Description : 

Utilizing  the  analytical  expression  given  by  equations  (2.13)— 
(2.16),  the  electron  density  profile  at  the  midpoint  of  the  path 
between  the  transmitter  and  receiver,  and  the  oblique  frequency 
of  transmission,  subroutine  FITT  computes  the  ground  distance  and 
the  group  path  for  a specified  elevation  angle.  The  contributions 
of  ground  distances  and  group  paths  are  added  up  from  the  trans- 
mitter height  up  to  the  ray  reflection  height.  The  integration 
step  corresponds  to  the  height  increment  of  the  electron  density 
profile  at  the  midpoint. 
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Subroutine  RAYINT 
Purpose : 

Routine  RAYINT  initializes  the  ray  parameters  before  any 
actual  ray  tracing  is  performed. 

Description : 

The  code  in  subroutine  RAYINT  is  extracted  from  the  main 
subprogram  of  the  ray  tracing  program  to  enable  the  homing  and 
minimum  group  path  procedures  to  function  independently  from  the  main 
program.  With  a specified  elevation  and  azimuthal  angles  this 
subroutine  initializes  the  ray  parameters  prior  to  tracing  the 
ray  via  subroutine  TRACE. 

Subroutine  ADJUST 
Purpose : 

The  ADJUST  subroutine  takes  the  approximate  elevation  angles 
for  any  of  the  three  configurations,  ground-to-ground,  ground-to- 
satellite,  or  satellite-to-ground  and  modifies  them  through  the 
ray  tracing  program  to  achieve  homing. 

Description : 

Utilizing  the  initial  elevation  angle  a ray  is  traced  in 
the  ionospheric  profile  to  obtain  a ground  distance  value.  Then, 
the  initial  elevation  angle  is  incremented  or  decremented  by  a 
small  amount  depending  upon  the  configuration  under  consideration. 

In  the  ground-to-ground  case  the  initial  increment  or  decrement 
is  found  from  the  table  assembled  in  subroutine  HOME,  while  in 
the  other  two  cases  the  initial  increment  or  decrement  is  found 
from  equation  (2.35).  Adjusting  the  initial  elevation  angle  by 
the  initial  increment  or  decrement  we  obtain  a new  elevation  angle 
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and  a corresponding  ground  distance  through  ray  tracing.  The 
objective  is  to  locate  the  exact  ground  distance  between  the 
ground  distances  of  the  traced  rays.  Sometimes,  the  rays  are 
homed  without  further  calculations  and  at  other  times  we  cannot 
locate  the  exact  ground  distance  between  the  ground  distances 
obtained  through  ray  tracing  at  which  point  a message  is  printed. 
Let  us  assume  that  the  exact  ground  distance  lies  between  the 
two  ground  distances  obtained  from  ray  tracing.  With  the  two 
values  of  elevation  angles  and  their  corresponding  ground  dis- 
tances we  interpolate  linearly  and  find  a third  elevation  angle. 
Utilizing  this  third  elevation  angle  we  trace  another  ray  to  ob- 
tain the  ground  distance.  If  the  ray  is  not  homed  in  yet,  we 
have  three  elevation  angles  and  their  ground  distances.  Since 
the  variation  between  ground  distance  and  elevation  angle  is 
nonlinear  we  fit  a second  degree  polynominal  in  elevation  angle 
and  invert  the  resulting  matrix  to  find  a new  elevation  angle 
that  will  eventually  home  the  ray. 

With  this  elevation  angle  we  trace  a ray  and  find  the  ground 
distance.  A comparison  test  on  the  ground  distances  will  reveal 
whether  or  not  homing  is  achieved.  In  the  event  that  homing  is 
not  achieved,  the  procedure  of  fitting  the  second  degree  poly- 
nomial is  repeated  utilizing  the  closest  three  ground  distances 
to  the  exact  ground  distance  and  their  corresponding  elevation 
angles.  Then,  either  homing  is  achieved  and  no  further  calcula- 
tions are  needed,  or  the  above  procedure  is  repeated  to  attain 
homing.  Homing  may  not  be  achieved  due  to  discontinuities  in 
the  ray-traced  ground  distance  versus  elevation  angle  curve,  high 
angle  ray,  or  that  the  maximum  number  of  specified  trials  to  find 
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an  elevation  angle  have  been  exceeded. 

Subroutine  GROUPM 
Purpose : 

Subroutine  GROUPM  calculates  the  minimum  group  path  for 
given  transmitter  coordinates,  azimuthal  angle  of  transmission 
and  an  oblique  transmission  frequency. 

Description : 


With  the  given  transmitter  coordinates,  the  closest  density 
profile  is  selected  from  the  composite  ionospheric  profile. 

From  the  knowledge  of  the  critical  frequency  of  the  selected 
profile  and  the  oblique  frequency  of  transmission,  the  penetra- 
tion angle  is  computed  through  equation  (2.18).  Then,  starting 
with  this  penetration  angle  we  initialize  the  ray  parameters  and 
trace  a ray  through  the  given  ionosphere.  If  the  ray  penetrates 
the  ionosphere  we  decrement  the  elevation  angle  (penetration 
angle)  by  one  percent  and  trace  another  ray.  This  procedure  is 
repeated  until  the  ray  is  reflected  and  a value  for  the  group 
path  is  obtained.  There,  we  take  95  or  90  percent  of  the  result- 
ing elevation  angle  thus  generating  two  new  elevation  angles. 

With  these  two  new  elevation  angles  we  trace  two  rays  to  obtain 
their  corresponding  group  path  values.  The  three  values  of  ele- 
vation angles  and  their  corresponding  group  paths  describe  a curve. 
This  curve  may  assume  three  shapes,  sloping  to  the  left  (most 
common),  sloping  to  the  right  (rare)  or  concave  upwards.  In  the 
cases  where  the  curve  is  sloping  to  the  right  or  left  we  incre- 
ment or  decrement  the  elevation  angle  and  trace  rays  until  the 
shape  of  the  curve  is  concave  upward.  For  this  shape  the  values 
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of  the  group  paths  are  compared  with  each  other  to  test  for  the 
minimum  value  within  a specified  1 km  tolerance. 

Let  us  assume  that  we  did  not  attain  the  minimum  group  path 
value,  then  we  subdivide  the  two  intervals  in  the  curve  and  obtain 
two  elevation  angles,  one  in  each  interval,  thus  generating  two 
additional  intervals.  Through  ray  tracing  we  obtain  two  values 
of  group  paths  corresponding  to  the  two  new  elevation  angles. 

A test  is  performed  between  the  five  group  path  values  and  the 
largest  two  are  discarded  retaining  only  three  values  and  their 
corresponding  elevation  angles.  Through  repeated  application  of 
this  procedure  we  converge  on  the  minimum  group  path  value  with 
the  specified  tolerance  of  1 km.  This  tolerance  is  imbeded  in 
the  subroutine  and  could  be  changed  to  any  desired  value. 

2.5.2  Program  Listings 

A complete  listing  of  all  the  programs  discussed  in  this 
section  is  given  in  Appendix  1. 
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2.6  Discussion 

We  have  modified  the  three  dimensional  ray  tracing  program 
to  include  the  homing  features  for  ground-to-ground,  ground- to- 
satellite,  and  satellite-to-ground  configurations.  In  addition, 
the  ray  tracing  program  has  been  augmented  by  a chopping  techni- 
que to  find  the  minimum  group  path.  In  the  preceding  sections 
we  presented  in  detail  the  approach  and  methods  utilized  in  the 
homing  of  the  ray  together  with  representative  examples.  We 


also  outlined  the  purpose  and  description  of  each  computer  sub- 
program added  to  the  originally  supplied  AFCRL  three  dimensional 


ray  tracing  program. 

The  results  of  our  homing  approach  for  the  one  hop  mode  of 
propagation  show  that  homing  is  almost  always  achieved  provided 
the  input  parameters  are  correctly  entered  through  the  input 
data.  We  say  almost  since  there  are  situations  where  homing  of 
the  ray  may  not  be  possible.  During  the  course  of  our  study  we 
came  across  three  situations  in  the  ground-to-ground  case  where- 
by homing  might  not  be  possible.  These  three  situations  are 

i)  high  angle  ray 

ii)  ground  distance  too  close  to  the  skip  distance  or 
discontinuity  in  the  ray  traced  ground  distance  versus 
elevation  angle  curve. 

iii)  number  of  tries  to  find  an  elevation  angle  is  exceeded. 

A preliminary  investigation  of  the  two  mixed  hop  mode  of 

propagation  has  been  initiated  and  the  technique  has  been  imple- 
mented in  the  HOME  subroutine.  The  application  of  our  technique 
to  achieve  homing  is  only  partially  successful;  the  ray  was  homed 
in  for  a few  cases  while  for  the  majority  of  the  cases  tested  we 
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encountered  difficulties  in  homing  of  the  ray.  These  difficulti 
may  be  attributed  to  the  following  reasons: 

i)  the  coarseness  of  the  given  ionospheric  profile 

ii)  the  interpolation  procedure  used  in  the  ray  tracing 
program 

iii)  the  technique  applied  to  the  two  hop  mode 

Through  further  research,  the  true  nature  of  the  problem  could  bi 
pinpointed  and  if  need  be  a sophisticated  homing  technique  for 
the  multi-hop  mode  of  propagation  can  be  developed. 

Aside  from  the  homing  probelms,  we  have  also  incorporated 
a chopping  method  to  find  the  minimum  group  path.  The  results 
of  such  a method  are  quite  evident  from  the  examples  presented 
in  section  2.4.2.  For  all  the  cases  studied  we  have  been  success 
ful  in  finding  the  minimum  group  path  within  the  specified  tol- 
erance. The  number  of  steps  needed  to  obtain  the  minimum  group 
path  decreases  as  the  frequency  of  transmission  gets  higher. 

Once  we  arrive  at  the  condition  whereby  the  variation  of  group 
path  versus  elevation  angle  curve  is  concave  upward,  the  conver- 
gence of  the  chopping  method  is  very  fast. 

From  the  results  presented  in  this  report  and  other  example: 
derived  from  the  techniques  used  in  homing  of  the  ray  and  findinc 
the  minimum  group  path  it  is  quite  evident  that  we  have  been 
successful  in  achieving  our  objective.  The  difficulties  encounte 
during  the  course  of  this  study  could  be  overcome  through  modifi- 
cation and  refinement  of  the  ray  tracing  program  and  the  ionosphe 
profile.  Such  modification  and  refinement  can  only  be  achieved 
through  further  research. 
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3.  ANALYSIS  OF  OBLIQUE  PROPAGATION  DATA 

3.1  Introduction 

The  goal  of  this  investigation  is  to  devise  techniques  for 
inverting  h.f.  oblique  radio  propagation  data  for  ionospheric 
models  with  horizontal  gradients.  There  are  two  kinds  of  obli- 
que propagation  data:  (a)  Point-to-point  oblique  ionograms,  and 

(b)  Backscatter  leading  edge.  In  this  section,  we  shall  consider 
briefly  the  nature  of  these  two  types  of  data  and  discuss  quali- 
tatively their  capabilities  and  limitations  in  providing  infor- 
mation concerning  ionospheric  models  with  horizontal  gradients. 

3.1.1  Point-to-Point  Oblique  Ionograms 

These  are  traces  of  group  path  (P1)  versus  frequency  (f) 
for  oblique  propagation  between  two  fixed  points  separated  by 
some  distance.  Since  the  end  points  of  the  propagation  path  are 
fixed,  the  reflection  points  of  the  rays  lie  in  the  neighborhood 
of  the  midpoint  between  the  transmitter  (T)  and  receiver  (R)  for 
the  one-hop  mode  of  propagation,  irrespective  of  the  frequency, 
as  shown  in  Fig.  3.1(a).  Similarly,  for  multiple-hop  mode  of 
propagation,  reflection  for  each  hop  occurs  in  the  neighborhood 
of  a single  location,  for  all  frequencies  capable  of  propagating 
in  that  mode.  A typical  shape  of  the  oblique  ionogram  trace  for 
the  one-hop  mode  is  shown  in  Fig.  3.1(b). 

It  can  be  easily  conjectured  from  Fig.  3.1(a)  that  a one-hop 
mode  oblique  ionogram  is  capable  of  providing  an  equivalent  verti- 
cal profile  of  electron  density  valid  near  the  midpoint  between 
the  transmitter  and  the  receiver,  but  is  not  by  itself  too  useful 
for  deriving  the  horizontal  gradients  of  electron  density.  How- 
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ever,  for  a particular  assumed  model  with  horizontal  gradients 
near  the  midpoint,  it  is  in  principle  possible  to  deduce  the 
parameters  so  as  to  achieve  a best  fit  with  the  experimental 
ionogram.  The  use  of  a two-hop  mode  trace  in  addition  to  the  one- 
hop  mode  trace  would  increase  the  utility  of  the  ionogram  for 
deriving  the  horizontal  gradients  but  still  does  not  permit  their 
determination  continuously  along  the  azimuthal  direction  from 
the  transmitter  to  the  receiver. 

3.1.2  Backscatter  Leading  Edge 

In  the  case  of  the  backscatter  mode  of  propagation,  the 
transmitter  and  the  receiver  are  located  at  about  the  same  loca- 
tion and  the  time  delay  of  the  transmitted  signal  backscattered 
from  the  ground  and  then  received  at  the  receiver  is  measured  as 
a function  of  frequency.  For  a given  frequency,  many  returns  are 
possible  corresponding  to  all  elevation  angles  of  transmission 
and  reception  within  the  bandwidths  of  the  transmitting  and  re- 
ceiving antennas.  There  is  however  a minimum  value  for  the  time 
delay  which  occurs  near  the  transition  from  the  low  angle  ray 
mode  of  propagation  to  the  high  angle  ray  mode  of  propagation, 
as  shown  in  Fig.  3.2(a).  Thus  for  each  frequency,  a continuum 
of  backscattered  returns  beginning  with  the  minimum  time  delay 
return  will  be  received.  Alternatively,  the  situation  can  be 
thought  of  as  a continuum  of  point-to-point  oblique  ionograms 
corresponding  to  continuously  increasing  values  of  ground  range 
of  the  backscatter  location  away  from  the  transmitter.  Such  a 
continuum  of  oblique  ionograms  is  shown  in  Fig.  3.2(b).  The 
tangent  curve  to  these  ionograms  is  the  "backscatter  leading 
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edge",  and  is  generally  the  only  useful  portion  of  the  backscatter 
ionogram  since  all  the  other  returns  cannot  be  distinguished  from 
one  another,  except  in  the  case  of  high  resolution  ionograms. 

It  can  now  be  seen  from  Fig.  3.2(b)  that  points  along  the 
backscatter  leading  edge  correspond  to  rays  reflecting  at  con- 
tinuously increasing  distant  locations  from  the  transmitter. 

Hence  in  principle  the  bauk-catter  leading  edge  contains  infor- 
mation concerning  the  horizontal  gradients  of  electron  density 
outward  from  the  transmitter  location  along  the  azimuthal  direc- 
tion corresponding  to  the  backscatter  ionogram.  However  to  obtain 
a vertical  profile  of  electron  density  at  any  given  location,  a 
minimum  number  of  points  along  an  ionogram  are  required.  For 
example,  a quasi-parabolic  profile  requires  a minimum  of  three 
points.  If  we  consider  three  points  on  the  backscatter  leading 
edge,  we  must  select  them  very  close  to  each  other  in  order  to 
obtain  the  vertical  profile  corresponding  to  a given  location. 

On  the  other  hand,  for  three  such  points,  the  apogee  heights  of 
reflection  for  the  corresponding  rays  do  not  differ  significantly. 
Hence  to  increase  the  separation  between  the  apogee  heights  of 
reflection,  the  points  must  be  selected  farther  apart.  Thus  it 
becomes  necessary  to  compromise  between  these  two  conflicting 
requirements.  A further  point  of  interest  arising  from  these 
requirements  is  that  it  may  not  be  profitable  to  invert  the  lead- 
ing edge  by  employing  a model  which  requires  a large  number  of 
parameters  to  describe  its  vertical  profile.  This  observation 
is  augmented  by  the  fact  that  simulated  backscatter  leading 
edge  data  using  three-dimensional  ray  tracing  indicates  that  the 
apogee  heights  of  rays  corresponding  to  points  on  the  leading 
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edge  lie  within  a narrow  range  of  values.  This  also  makes  it 
impossible  for  the  backscatter  leading  edge  to  provide  the  verti- 
cal profile  above  the  maximum  apogee  height.  However,  as  will 
be  pointed  out  later,  this  is  not  a limitation  insofar  as  the 
application  of  the  leading  edge  data  is  concerned,  although  it 
may  be  a limitation  for  the  purpose  of  obtaining  the  complete 
ionospheric  structure  up  to  the  layer  peak. 

Thus  in  this  introductory  section,  we  point  out  that  while 
the  point-to-point  oblique  ionograms  are  capable  of  providing 
the  vertical  profile  near  the  midpoint  between  the  transmitter 
and  the  receiver,  they  are  not  too  useful  for  obtaining  hori- 
zontal gradients  over  wide  ranges  of  distance  along  the  line 
from  the  transmitter  to  the  receiver.  On  the  other  hand,  the 
backscatter  leading  edge,  while  unable  to  provide  the  vertical 
profiles  above  certain  heights,  is  useful  for  deducing  the  hori- 
zontal gradients  over  wide  ranges  of  distance  along  the  azimuthal 
direction  from  the  transmitter  corresponding  to  the  backscatter 
ionogram. 

3.2  The  Quasi -Parabolic  Layer 

Since  the  primary  purpose  of  this  investigation  is  to  devise 
techniques  capable  of  yielding  the  horizontal  gradients  of  elec- 
tron density,  it  can  be  seen  from  the  discussion  in  the  previous 
section  that  it  becomes  necessary  to  attach  more  importance  to 
the  backscatter  leading  edge  data  than  to  the  point-to-point  ob- 
lique ionogram  data.  Hence  for  selecting  a model,  the  limitation 
of  the  leading  edge  data  need  to  be  considered.  In  view  of  this, 
an  ionospheric  model  requiring  a small  number  of  parameters  to 
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define  its  vertical  profile  is  more  suitable.  Such  a model, 
which  is  also  amenable  to  analytical  solution  for  the  ray  path 
parameters,  as  compared  to  numerical  ray  tracing,  is  the  quasi- 
parabolic layer  model.  Hence  this  section  is  devoted  to  the 
quasi-parabolic  layer. 


3.2.1  The  Earth  Concentric  Quasi-Parabolic  Layer 

The  quasi-parabolic  layer  is  defined  by  the  variation  of 

electron  density  N with  the  radial  distance  r from  the  center 

e 

of  the  earth  as  given  by 
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The  slight  modification  over  the  parabolic  model,  which  is  de- 


fined by  ignoring  the  factor  (r^/r)2  in  (3.1) , enables  the  deri- 
vation of  exact  closed  form  expressions  for  the  ray  path  para- 
meters for  the  quasi-parabolic  layer  (Croft  and  Hoogasian,  196  8)  , 
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of  transmission  3/  these  expressions  for  the  ground  range  R,  and 
group  path  P'  are  given  as  follows  (Rao,  1974;  Rao , 1975): 
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To  find  the  minimum  group  path,  which  is  equal  to  the  mini- 
mum time  delay  times  the  velocity  of  light  in  free  space,  we 
first  note  that  for  a given  frequency  and  for  a given  set  of 
layer  parameters,  the  elevation  angle  of  transmission  corres- 
ponding to  the  minimum  group  path  ray  is  given  by  the  solution 
of  the  equation 
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Recognizing  that  9P'/36  varies  continuously  from  a large  nega- 
tive value  near  zero  elevation  angle  to  a large  positive  value 
near  maximum  elevation  angle  corresponding  to  penetration  of  the 
ray  through  the  layer,  we  can  solve  (3.4)  for  B in  an  iterative 
manner.  The  penetration  condition  occurs  for  the  ray  apogee 
radius  equal  to  - B/2A  and  hence  for  the  elevation  angle  of  trans- 


mission given  by 
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Thus  starting  with  values  of  B near  zero  and  $ , the  value  of 

P 

B for  which  3P'/98  is  a small  specified  value  can  be  found  in 
an  iterative  manner.  Substitution  of  this  value  of  B in  (3.2) 
then  gives  the  value  of  the  minimum  group  path,  P'mj_n* 

In  the  formulation  of  the  procedures  for  inversion  of  the 
point-to-point  oblique  ionograms  and  backscatter  leading  edges 
for  quasi-parabolic  layer  parameter,  we  will  find  later  that 
the  partial  derivatives  of  R and  P'  with  respect  to  the  layer 
parameters  are  required.  Expressions  for  these  quantities,  which 
can  be  easily  derived  from  (3.2)  and  (3.3)  are  given  in  the  appendix. 


3.2.2  The  Eccentric  Quasi-Parabolic  Layer 

In  papers  by  Rao  (1968,  1973),  the  ionospheric  layer  has 
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been  assumed  to  be  still  spherical  but  eccentric  with  respect 
to  the  earth.  Figure  3.3  shows  the  geometry  pertinent  to  such 
a layer  with  its  center  C'  displaced  by  vector  D from  the  earth's 
center  C.  Assuming  quasi-parabolic  distribution  of  electrons 
in  the  eccentric  layer,  the  spherical  geometry  of  the  system  with 
respect  to  its  own  center  enables  us  to  use  the  formulas  for  the 
concentric  case  (Section  3.2.1)  with  some  additional  computations 
introduced  by  Rao  (1968).  Thus  the  eccentric  quasi-parabolic 
layer  model,  which  permits  the  existence  of  gradients  in  the 
electron  density,  is  completely  defined  by  the  following  six 
parameters  : 

f : critical  frequency  of  the  layer 

hQ  : vertical  distance  between  the  base  of  the  ionosphere 
and  the  surface  of  earth  along  vector  D 
y : semi-thickness  of  the  layer 

D : the  distance  between  the  centers  of  the  earth  and 

the  ionosphere 

: the  angle  between  the  displacement  vector  D and  the 

radius  of  earth  through  the  transmitter 
a : an  angle  pertinent  to  the  azimuthal  angle  of  transmission 

For  simplicity,  we  assume  no  gradient  lateral  to  the  transmission 
path  (a  = 0)  and  the  model  is  then  defined  by  the  first  five 
parameters.  The  consideration  of  non  zero  a will  not  affect  the 
presented  techniques  and  will  only  add  an  additional  dimension 
to  the  problem. 

It  is  essential  to  have  a feel  for  the  type  and  amount  of 
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the  gradients  introduced  by  D and  a)  parameters  of  the  eccentric 
layer.  To  accomplish  this,  we  must  make  a few  simplifying  assump- 
tions and  approximations.  The  geometry  of  Figure  3.3  suggests 
that  we  have  gradients  in  the  base  and  peak  heights  of  the  layer. 

To  obtain  realistic  relative  values  for  these  two  gradients,  we 
will  assume  that  the  base  height  of  the  layer  above  the  transmitter 
be  a constant  value  for  all  cases.  In  Figure  3.4,  T and  R are 
the  locations  of  the  transmitter  and  the  receiver  with  M and  6 

o 

being  the  location  and  the  angle  of  their  mid-point.  The  base 
heights  of  the  layer  above  T and  R are  denoted  by  h^  and  h". 
Expressions  can  now  be  derived  for  the  gradients  at  angle 
(approximately  where  the  reflection  takes  place)  . 

The  equation  of  the  base-height  circle  can  be  written  as 

(x  + D cos  u>t)  2 + (y  + D sin  wt)  2 = D2  + (r  + h')2 

+ 2D(rQ  + h^)  cos  (3.6) 

Writting  (3.6)  in  polar  coordinates,  we  get 

r2  + 2rD[cos(0  - to.  ) ] = (r  + h 1 ) 2 + 2D(r  + h')  cos  to. 

u 0 0 0 0 u 

(3.  7) 

Differentiating  3.7  with  respect  to  9,  we  have 

2r  + 2D  cos  (9  - to t ) - 2Dr  sin  (6  - tot)  = 0 

- <o 


D sin(9^ 
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where 

r'  = rj  + h'  for  the  base  height  gradient 

r'  = r + h'  + ym  for  the  peak  height  gradient. 

Since,  in  general  r >>  h'  and  y , we  can  assume  that  the  gradient 

o o J m 3 

is  equal  for  both  base  and  peak  heights  (r1  = r ) . 

As  a typical  example,  let  us  assume  TOR  =10°  correspond- 
ing to  a ground  range  of  R = 1111.8  km  (0,  = 5°).  The  gradient 
given  by  (3.8)  is  evaluated  for  several  values  of  D and  u and 
Fig.  3.5  shows  the  peak  height  gradient  (r1  = 6370  + 150  + 200  = 

6720  km  as  a function  of  D for  several  values  of  w . Figure  3.5 

also  shows  the  forbidden  regions,  characterized  by  the  ionosphere 
going  underground  at  the  receiver.  This  happens  when  the  gradients 
are  large,  forcing  the  base  height  of  the  layer  to  be  less  than 
zero  above  the  receiver  (h"  < 0)  . The  quantity  h " can  be  derived 
by  solving  (3.7)  for  r and  setting  9 = 29,.  Thus 

r + h"  = -D  cos  (20  - u>.) 

oo  o t 

+ /d?cos2  (29  -u).  ) + ( r +h ' ) 2 + 2D(r  +h*  ) cosm, 

0 t 0 0 0 0 t 

(3.9) 

The  above  equation  can  also  be  used  to  set  an  upper  limit  for 

h"  as  well  as  a lower  limit.  This  will  result  in  a usable  region 

o 3 

on  Fig.  3.5  for  the  values  of  D and 
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Figure  3.5.  Peak  height  gradient  as  a function  of  D and 
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3.3  Inversion  of  Point-to-Point  Oblique  Ionograms 

In  this  section,  we  report  our  investigation  of  techniques 
for  inversion  of  point-to-point  oblique  ionograms.  The  inversion 
of  such  ionograms  for  earth-concentric  ionospheric  layers  already 
exist  in  the  literature.  Hence,  we  consider  here  their  inversion 
to  a layer  with  horizontal  gradients,  and  in  particular  the  eccen- 
tric quasi-parabolic  layer  discussed  in  Sec.  3.2.2. 


3.3.1  Sensitivity  Analysis 

First  we  need  to  explore  the  individual  behavior  of  the 
five  parameters  of  the  eccentric  Q-P  layer  model  with  respect 
to  numerically  synthesized  oblique  ionograms,  so  that  we  can  de- 
vise an  efficient  numerical  procedure  for  inverting  a given  oblique 
ionogram  to  the  model's  parameters.  In  Figs.  3.6-3.10,  four  of 
the  five  parameters  are  held  constant,  with  the  fifth  varying 
over  a small  range,  and  the  resulting  oblique  ionograms  are  plotted. 
Investigation  of  these  graphs  showsthat  small  changes  in  fc,  h , 
and  ym  parameters  have  a relatively  linear  effect  on  their  re- 
spective ionograms,  that  is,  the  curves  are  shifted  by  a similar 
amount  for  equal  changes  in  each  of  the  three  parameters.  How- 
ever, for  changes  in  the  gradient  parameters  D)  , the  shifted 

ionograms  actually  tend  to  converge  to  a certain  curve  and  do 
not  demonstrate  the  linear  behavior  associated  with  the  variation 
of  the  first  three  parameters. 

The  above  conclusion  can  also  be  verified  from  the  geometric 
point  of  view.  Since  is  a periodic  variable,  the  constructed 
ionograms  will  not  be  linearly  shifted  as  the  parameter  is 
increased.  Also  the  constructed  ionograms  can  be  very  insensi- 
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Figure  3.6.  Effect  of  changing  the  f (critical  frequency) 
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Figure  3.9.  Effect  of  changing  the  D parameter  (in  km) 
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tive  to  changes  in  D for  large  values  of  D (the  layer  approaches 
a plane  slab)  and  be  highly  sensitive  for  negative  D values. 
These  facts  tend  to  suggest  that  most  standard  numerical  pro- 
cedures have  the  potential  for  inverting  for  the  fc,  hQ,  and  ym 
parameters,  but  could  easily  encounter  convergence  problems  when 
the  gradient  parameters  are  introduced. 

Rao  (1975)  successfully  inverted  an  oblique  ionogram,  using 
three  data  points,  to  the  three  defining  parameters  of  a concen- 
tric quasi-parabolic  layer  using  Newton's  iterative  technique 
(this  procedure  is  described  and  used  in  Section  3.3.3).  An 
attempt  to  extend  this  attractive  technique  to  include  two  more 
parameters,  D and  oi  , failed  because  of  convergence  problems 
caused  by  the  nonlinear  behavior  with  respect  to  the  gradient 
parameters.  These  observations  suggest  that  a slower  and  more 
controllable  technique  is  needed  to  converge  to  the  final  solu- 
tion. 


3.3.2  Determination  of  Initial  Set  of  Parameters 

In  every  complex  numerical  convergence  procedure,  it  is 
essential  to  have  a reasonable  set  of  approximate  starting  values 
in  order  to  be  able  to  converge  to  the  desired  solution.  In  the 
present  problem  we  have  five  data  points  (frequency-group  path 
pairs)  corresponding  to  five  rays  with  frequencies  f.,  group 
paths  P|  and  all  having  a constant  range  R.  It  is  desired  to 
find  a set  of  parameters  and  five  elevation  angles  6^,  so  that 
the  reflection  of  each  ray  (with  frequency  f ^ and  approximate 
. elevation  angle  B^)  is  ensured  with  small  errors  in  their  cor- 

responding group  paths  and  range. 

< 
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A concentric  layer  is  a practical  choice  for  initial  approx- 
imation, thus  assuming  D = u = 0 . Using  the  geometry  of  Fig. 
3.11(a)  and  applying  Martyn's  theorem,  we  can  derive  approximate 
expressions  for  y^  , the  angle  of  ray  at  the  reflection  point  and 
then  the  elevation  angle: 


Yi  = sm 


-1 


sin 


(3.10a) 


Bi  = tt/2  - - R/2rQ 


(3.10b) 


The  critical  frequency  fQ  is  chosen  to  be  equal  to  the  highest 
ray  frequency  (f^)  to  ensure  the  reflection  of  all  five  rays  by 
the  modelled  ionosphere.  Since  the  zero  frequency  ray  (with 
group  path  P^) , reflects  from  the  base  of  the  layer,  the  geometry 
of  Fig.  3.11(a)  can  be  usee  for  determining  the  initial  base 
height  hQ.  A linear  interpolation  of  two  data  points  (prefer- 
ably in  the  lower  frequency  region)  is  made  to  find  an  approxi- 
mate value  for  [Fig.  3.11(b)]  and  then  by  using  the  simple 
geometry  of  Figure  3.11(a),  hQ  is  determined: 


(3.12) 


Initial  value  of  y is  not  as  critical  as  the  other  two  parameters, 

m 

we  will  simply  use  a physical  constraint.  Here,  we  have  chosen 
ym  = 300  - hQ(in  kilometers).  Using  these  sets  of  approximate 
starting  values,  we  are  now  ready  to  consider  techniques  in  order 
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for  the  solution  to  converge  to  an  optimal  set  of  parameters. 

3.3.3  Inversion  of  Synthesized  Oblique  Ionograms 

Rao  (19  75)  employed  a version  of  Newton's  technique  in  order 
to  invert  a concentric  Q-P  layer  in  its  three  parameters.  In 
each  iteration,  this  procedure  requires  evaluating  the  partial 
derivatives  of  the  group  path  and  the  range  with  respect  to  the 
three  parameters  and  three  elevation  angles  (subscript  i = 1,  2, 

3 refers  to  the  data  point  used).  The  matrix  equation  (3.13)  is 
then  used  to  find  the  required  increments  in  f , h , and  r and 
the  three  elevation  angles  and  then  update  these  quantities  as 
shown  in  (3.14): 
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^fc-*new  ^fc^old  + Afc 


[ho]new  [ho]old  + Aho 


3.14) 


where  AP|  and  AR^  are  defined  to  be  the  differences  between  the 
actual  and  the  computed  values  of  group  path  and  range  using 
the  latest  values  of  the  parameters. 

The  iteration  in  (3.14)  is  repeated  until  the  errors  in  the 
group  path  and  range  satisfy  a given  convergence  condition.  As 
mentioned  in  Section  3.3.1,  our  attempt  to  extend  this  convenient 
technique  to  include  two  more  parameters,  D and  wt,  failed  to 
result  in  a stable  procedure.  However,  by  employing  a bisection 
search  on  D and  wt,  and  repeating  the  iteration  for  every  change 
in  these  two  parameters,  the  procedure  becomes  stable.  Fig.  3.12 
contains  the  flow  chart  for  such  a technique,  and  for  simplicity, 
it  only  optimizes  D with  constant.  This  technique  can  also 
be  demonstrated  graphically  in  Fig.  3.13.  Several  oblique  iono- 
grams  are  synthesized  for  different  values  of  the  D parameter, 
satisfying  three  common  data  points  at  all  times  (step  3.14  is 
repeated  for  every  value  of  D)  . It  is  clear  that  by  selecting 
the  fourth  and  the  fifth  data  point  in  the  high  frequency  region 
of  the  ionograms,  which  is  the  most  sensitive  region  with  respect 
to  the  gradient  parameters,  a bisection  search  can  be  used  to 
optimize  the  values  of  D and 
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FIND  INITIAL  SET  OF 
PARAMETERS 
(SEC  3.2) 


SET  INITIAL  STEP- 
SIZE  = Ad 


SATISFY  FIRST  THREE 
DATA  POINTS  BY 
NEWTON'S  TECHNIQUE 
(3.3.1) 


FREQUENCY  (MHz) 

Figure  3.13.  Synthesized  oblique  ionograms  for  Range  = 1111.7  km  and  = 0°.  The 
parameter  D is  successively  changed  by  500  km.  For  each  D,  the  remain 
ing  three  parameters  are  adjusted  so  as  to  force  the  curve  through  the 
three  points  marked  by  X.  The  parameters  for  the  two  extreme  curves  a 
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The  error  function  used  for  the  bisection  search  was  initially 
proposed  to  be: 

Error  = (AP^)  2 + (AP£)2  . (3.15) 

However,  as  apparent  from  Fig.  3.13,  for  a given  set  of  parameters, 
a ray  with  frequency  f^  might  penetrate  the  ionosphere  making 
AP|  approach  infinity.  This  problem  can  be  solved  by  consider- 
ing the  ray  with  group  path  P|  and  finding  the  error  in  its  fre- 
quency Af  ^ (this  value  is  always  finite) . Based  on  this  explan- 
ation, the  final  error  function  used  in  the  inversion  technique 
is  chosen  to  be: 

Error  = (Af4)  2 + (Af5)  2 . (3.16) 

It  is  important  to  note  that  Af^  (i  = 4,  5)  is  defined  to  be 
the  frequency  deviation  of  the  modelled  ray,  from  the  actual 
data  value,  which  has  its  group  path  equal  to  P^  and  the  range 
equal  to  R (the  elevation  angle  6^  is  adjusted  so  that  the  error 
in  range  vanishes)  . This  technique  is  completely  programmed  and 
simulated  on  an  IBM- 360  digital  computer,  and  Table  3.1  contains 
an  example  in  which  a numerically  synthesized  oblique  ionogram 
is  inverted  with  excellent  accuracy  to  the  model's  parameters. 
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TABLE  3.1.  Inversion  of  Synthesized  Oblique  Ionograms 
Using  the  Technique  in  Section  3.3.3 

Model  parameters:  f = 12  MHz 

h = 150  km 

o 

y = 100  km 
J m 

D = -2000  km 

U)t  = 0 

Range  = 1111.8  km 


Synthesized  data  points  used: 


i 

1 

2 

3 

4 

5 

f . 
i 

12.23 

19.0  3 

22.10 

23.57 

24.15  MHz 

P! 

l 

1161.  3 

1173.1 

1186. 3 

1200.9 

1217.2  km 

Inversion  results: 

f 

h 

y 

D 

a).  Af?+Af 

c 

0 

Jm 

t 4 

MHz 

km 

km 

km 

deg  (MHz)  2 

1st 

iteration 

13.07 

136. 4 

125.3 

0 

0 .0  31 

2nd 

iteration 

12.96 

138.5 

123.5 

-500 

0 .026 

3rd 

iteration 

12.78 

141.3 

119.6 

-1000 

0 .018 

4th 

iteration 

12.48 

144.9 

112. 3 

-1500 

0 .0081 

5th 

i teration 

11.99 

150.0 

99 . 89 

-2000 

0 .00004 

*#• 
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Since  Newton's  technique  attempts  to  converge  the  error  to 
zero,  problems  can  be  encountered  in  case  of  real  data  because 
of  the  finite  errors  involved  in  the  final  solution.  In  order 
to  adapt  this  technique  for  inversion  of  real  data,  a steepest 
descent  method  (discussed  in  detail  later  in  Section  3.3.4)  is 
employed  to  find  an  optimal  set  of  starting  parameters  for  three 
of  our  data  points.  Then  the  group  paths  of  the  three  rays  were 
computed  using  the  parameters  and  used  to  replace  the  original 
group  path  values  (Fig.  3.14).  These  adjusted  data  points  are 
indeed  well  behaved  and  we  can  continue  our  procedure  as  before 
for  minimizing  (Af^) 2 + (Af,-)2.  Table  3.2  contains  a numerical 
example  for  this  technique;  it  must  be  noted  that  in  this  example 
the  fourth  and  the  fifth  data  points  are  chosen  in  the  nearly 
horizontal  region  of  the  ionogram,  therefore  making  Af^,  Af^ 
correspond  to  a much  smaller  error  in  group  paths  (AP^,  AP^) . 

Because  of  the  two-step  optimization  involved  in  inverting 
real  oblique  ionograms,  the  final  result  is  not  guaranteed  to 
be  optimum.  In  fact,  different  combinations  of  the  real  data 
points  used  in  the  inversion  procedure  tend  to  converge  to  dif- 
ferent sets  of  parameters  (in  that  case,  the  combination  with 
the  least  amount  of  error  is  the  final  solution) . Even  though 
the  technique  converges  quite  rapidly  in  the  synthesized  data 
case,  the  computation  time  becomes  an  order  of  magnitude  larger 
for  the  real  data  case,  which  could  be  considered  undesirable. 
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TABLE  3.2. 

Using 


Inversion  of  Real  Oblique  Ionograms, 
the  Technique  in  Section  3.3.3 


Range  = 1421.5  km 


Frequency,  MHz 

14 

18 

22 

16 

20 

actual  (P1)  km 

1532 .0 

1540. 

4 1556.1 

1528. 

5 1539.0 

adjusted  (P')  km 
(after  steepest  descent) 

1527.0 

15  30. 

3 1559.4 

same 

same 

Parameters 

f 

c 

h 

0 

*m 

D 

wt 

(Af4)2+(Af5)2 

MHz 

km 

km 

km 

deg 

(MHz)  2 

Iteration  #1 

12.87 

2 36. 7 

74.2 

0 

0 

26.8 

Iteration  #2 

12.73 

244.6 

72.1 

-1000 

0 

27.4 

Iteration  #3 

12. 80 

2 40.3 

73.  3 

-500 

0 

• 

26.6 

Iteration  #7 

12.82 

2 39.2 

73.5 

-375 

• 

0 

• 

• 

26.2 
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Based  on  the  controllable  convergence  behavior  of  the 
steepest  descent  method,  a different  approach  to  the  inversion 
of  real  data  is  proposed  and  discussed  in  detail  in  the  following 
section . 

3.3.4  Inversion  of  Experimental  Oblique  Ionograms 

Actual  oblique  ionograms  are  not  smooth  and  nicely  behaved 
as  the  numerically  generated  ones.  In  fact,  one  can  frequently 
find  discontinuities,  and  other  peculiarities  on  the  plots  of 
actual  data.  Ideal  zero  error  cannot  be  accomplished  when  actual 
data  points  are  used,  requiring  the  optimization  of  the  error 
function  to  a minimum  value. 

It  is  convenient  to  approximate  the  gradient,  in  the  actual 

data  case,  by  using  only  one  parameter.  Referring  back  to  Fig. 

3.5,  it  is  apparent  that  a wide  range  of  gradients  can  be  obtained 

by  holding  at  a reasonable  value  and  varying  D.  In  the  ex- 
amples to  follow,  (jo t = 0 is  chosen  not  only  to  span  a wide  range 
of  gradient  values  by  varying  D,  but  also  to  force  hQ  to  repre- 
sent the  actual  base  height  value  of  the  layer  above  the  trans- 
mitter. The  steepest  descent  method,  with  it's  controlled  step 
size  is  an  ideal  choice  for  simultaneous  inversion  of  the  remaining 
four  parameters.  Figure  3.10  outlines  the  procedure  in  a simple 
flow  chart. 

Since,  in  fact,  we  are  finding  a best  fit  curve  through 
the  data  points,  we  need  not  be  limited  to  using  five  points, 
and  obviously  the  more  data  points  used  the  more  descriptive 
the  model  will  be.  The  error  function  is  chosen  to  be: 


Figure  3.15.  Method  of  steepest  descent  for  inverting 
actual  data. 
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E = Z (AP! ) 2 
i=l  1 


where  N is  the  number  of  data  points  and  AP!^  is  the  error  in 
the  i1^  group  path  as  defined  in  Section  3.3. 


The  gradient  vector  A is  defined  to  be: 


[A] 


Evaluated  at  the  current 
parameter  values 


The  theory  of  steepest  descent  uses  the  fact  that  contin- 
uous functions  decrease  along  the  negative  of  their  gradient. 
Thus 
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where  H is  a positive  scalar  step  size.  For  this  iteration  to 
be  most  efficient,  we  like  to  choose  an  H such  that  the  resultant 
error  function  from  the  new  parameter  is  at  a minimum.  This  can 
be  accomplished  by  simply  setting  H to  zero,  and  then  incrementing 
it  by  an  interval  such  that  none  of  the  resultant  parameters 
change  by  more  than  a specified  amount  (this  ensures  a slower 
but  smoother  convergence  to  the  final  solution  not  accomplished 
by  the  Newton's  technique  in  Section  3.3.3).  Error  is  computed 
for  each  value  of  H and  minimized  by  performing  a simple  inter- 
val halving  routine  on  H.  The  old  parameters  are  replaced  by 
using  the  optimal  step  size  H and  if  the  convergence  criterion 
is  not  met,  the  gradient  is  reevaluated  and  the  procedure  is 
repeated.  This  technique  is  also  programmed  on  a digital  com- 
puter and  Tables  3.3  and  3.4  contain  examples  using  five  data 
points  from  actual  oblique  ionograms. 
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TABLE  3.3(a).  Inversion  of  an  Actual  lonogram 
Data  points  scaled  from  oblique  ionogram  (Range  = 1421.5  km)  : 


i 

1 

2 

3 

4 

5 

fi  (MHz 

) 14. 

16  . 

18. 

20. 

22  . 

P|  (km) 

15  36 

1536.5 

1540.5 

1545. 

3 1555.5 

Inversion 

results  : 

Iteration# 

f (MHz) 
c 

ho (MHz) 

y (km) 
m 

D (km) 

5 

Error  = (, 

2 

i=l 

0 

22.00 

252.2 

50.0 

0.0 

290.1 

1 

18.28 

254.5 

51.6 

342.2 

133.  8 

2 

12.67 

250.0 

55.5 

-79  7.  7 

14.5 

3 

12.47 

249 . 9 

55.5 

-836. 7 

12.5 

4 

12.71 

249.6 

55.5 

-831.4 

12  . 3 

10 

12.6  3 

249.0 

55.6 

-80  3.6 

11.1 

The  final 

individual 

group  path  errors  (in 

km)  : 

AP^  = 1.17 

' AP2  = 

-1.46  , 

A?  3 " 

-1.00  , 

AP^  = -1.11, 

AP^  = 2. 30 

* 

I 


i' 


i 
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TABLE  3.3(b)  Inversion  of  an  Actual  Ionogram 


Data  points  scaled  from  oblique  ionogram:  (Range  = 1421.5  km)  : 


i 

1 

2 

3 

4 

5 

fi  (MHz) 

14. 

16. 

18. 

20  . 

22. 

P|  (km) 

1533 

15  39.0 

1546.2 

1555.8 

1566.0 

Inversion  results: 
Iteration  # fc(MHz) 

hQ  (km) 

y (km) 
m 

D (km) 

5 

Error  = ^ (AP|) 

i = l 

0 

22.0 

220.0 

80.0 

0.0 

5838.5 

1 

12.5  8 

227.9 

88.5 

1237.  3 

20.6 

2 

12.60 

227.9 

88.6 

12  39.1 

20.5 

3 

12.59 

227.9 

88.5 

12  39. 3 

20.4 
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3.4  Inversion  of  Backscatter  Leading  Edge 

The  most  important  task  of  this  project  is  to  develop  a 
technique  of  inversion  of  the  sweep  frequency  backscatter  leading 
edge  data  for  various  azimuthal  directions,  to  an  ionosphere  vary- 
ing in  three  dimensions,  which  can  then  be  applied  for  the  purpose 
of  other  ray  path  computations.  In  this  section,  we  report  our 
work  on  this  problem.  Several  of  the  results  can  be  found  in 
the  various  progress  reports  but  not  in  the  order  presented  here. 
Here  we  discuss  the  solution  of  the  problem  in  a step-by-step 
manner  and  its  eventual  application  to  the  important  problem  of 
finding  the  ground  range  for  a measured  group  path  for  reflection 
from  a target. 

3.4.1  Basic  Inversion  Technique 

In  a paper  by  Rao  (1974) , it  has  been  demonstrated  that 

three  data  points  taken  from  the  leading  edge  of  a backscatter 

ionogram  can  be  used  to  obtain  the  quasi-parabolic  layer  parameters 

f , r^ , and  r , corresponding  to  those  three  points.  Briefly, 

this  method  consists  of  starting  with  an  initial  estimate  of  the 

layer  parameters  and  then  calculating  the  minimum  group  paths, 

P'  , corresponding  to  the  three  frequencies  at  which  data  points 
ci 

are  taken  from  the  leading  edge.  The  differences  between  these 
computed  minimum  group  path  values  and  the  actual  minimum  group 
path  values,  P| , from  the  leading  edge  are  then  used  in  an  itera- 
tive procedure  to  obtain  a final  solution  for  the  quasi-parabolic 
layer  parameters.  This  final  solution  is  such  that  the  differ- 
ences between  P!  and  P'  are  less  than  a certain  specified  value 
i c. 

(theoretically  zero) . 


4 


J 


109 


When  the  above  described  procedure  was  applied  to  synthe- 
sized leading  edge  data  polluted  intentionally  by  adding  or  sub- 
tracting a few  kilometers  from  each  of  the  Pj  values,  thereby 
simulating  the  actual  data  case,  it  was  found  that  in  order  for 

the  differences  between  P!  and  P'  to  go  down  to  less  than  a 

x 

small  specified  value,  one  or  more  of  the  layer  parameters  often 
got  incremented  to  physically  unrealizable  values.  The  reason 
for  this  was  found  to  be  that  the  backscatter  leading  edges  cor- 
responding to  quasi-parabolic  layer  profiles  have  certain  shapes 
and  it  is  not  in  general  possible  to  fit  a synthesized  leading 
edge  exactly  through  three  points  on  an  experimental  ionogram. 

In  view  of  this,  the  method  was  modified  for  use  in  this  work. 

The  modification  involves  the  minimization  of  the  following 

sum-squared  error  function: 

3 


E (rb-  v f=)  - 


I 

i=l 


[Pc, 


(r,  , r , 
b m 


V 


pi] 


(3.17) 


Fig.  3.16  depicts  the  strategy  graphically.  Assume  that  (f^, 

P^)  , (f2»  P^)  t and  (f^,  P^)  are  the  points  we  have  chosen  from 

the  backscatter  leading  edge.  As  before,  we  start  the  procedure 

with  an  initial  set  of  layer  parameters,  which  are  denoted  by 

(r^,  rm,  fc)o*  Corresponding  to  these  starting  parameters  is  a 

unique  backscatter  ionogram  leading  edge  trace  [P' (f)]  . We 

0 

note  that  the  error  function  E is  simply  the  sum  of  the  squared 

distances  between  the  ordinates  of  the  [P*  (f)]  curve  correspond- 

0 

ing  to  the  frequencies  f^,  f ^ , and  f and  the  chosen  backscatter 


ionogram  minimum  group  paths  P^,  P^ , and  P^- 


As  r,  , r , and  f 
b m c 


Ill 


are  varied  to  minimize  E,  we  see  that  we  are  effectively  fitting 
the  P' (f)  curve  to  the  three  data  points  in  the  least-squared 
error  sense.  Furthermore,  the  magnitude  of  the  minimum  of  E 
provides  an  indication  of  the  noisiness  of  the  data  with  reference 
to  a synthetic  leading  edge.  If  the  data  points  are  from  a syn- 
thetic curve,  computed  by  assuming  the  Q-P  model,  the  error  E 
will  then  be  zero. 

The  error  E is  in  general  a nonlinear  function  of  r.  , r , 

b m 

and  f. c and  an  iterative  method  is  required  to  seek  its  minimum. 
Numerical  minimization  techniques  are  available  which  seek  a 
local  minimum  for  a given  starting  point  in  parameter  space. 

The  nonlinear  minimization  alogorithm  employed  in  this  study 
is  described  by  Fletcher  and  Powell  (1963)  and  is  supplied  in 
IBM's  scientific  subroutine  package  as  subroutine  DFMFP . This 
routine  was  modified  for  use  with  our  computer.  The  Fletcher- 
Powell  method  performs,  for  each  iteration  step,  a linear  mini- 
mization along  a direction  determined  by  the  current  gradient 
and  an  updated  estimate  of  the  Hessian.  The  size  of  the  steps 
taken  through  the  parameter  space  as  the  minimum  is  sought  is 
proportional  to  the  difference  between  the  current  value  of  the 
function  to  be  minimized  (e) , and  the  user-supplied  minimum  value 
(EST) , typically  taken  to  be  0.001  km2,  and  inversely  proportional 
to  the  current  magnitude  of  the  function  gradient  ( | ^E | ) . In  this 
manner,  rapid  convergence  is  assured.  The  minimization  procedure 
is  terminated  when  the  function  value  has  not  changed  by  more 
than  a user-specified  value  (EPS),  or  if  | ^E | has  become  less 


• > 


F 


112 


than  EPS.  This  routine  requires  an  external  function  subprogram, 

-* 

which  supplies  DFMFP  with  E and  VE  as  the  parameters  r,  , r , and 

t>m 

->• 

f are  varied.  The  components  of  VE , which  involve  derivatives  of 
P'  with  respect  to  the  layer  parameters  are  calculated  using  the 
expressions  provided  by  Rao  (19  74)  and  repeated  here  in  the  appen- 
dix. 

Thus  far  we  have  discussed  the  procedure  for  the  inversion 
of  three  data  points  on  a backscatter  leading  edge  to  Q-?  layer 
parameters.  Since  each  point  on  the  leading  edge  corresponds  to 
a different  ground  range,  it  is  obvious  that  the  three  points 
must  be  chosen  fairly  close  together  if  horizontal  gradients  are 
present.  The  three  data  points  must  correspond  to  three  ionos- 
pheric propagation  paths  which  are  in  such  horizontal  proximity 
as  to  validate  the  assumption  of  a locally  horizontally  uniform 
ionosphere.  These  considerations  give  rise  to  a method  of  deriv- 
ing the  horizontal  ionization  gradients  from  the  leading  edge. 
Three  closely  spaced  points  on  the  leading  edge  just  above  the 
critical  frequency  at  the  backscatter  sounder  site  can  be  used 
to  determine  the  layer  parameters  of  the  ionosphere  at  a range 
which  is  in  close  proximity  to  the  site.  Next,  three  closely 
spaced  points  further  up  the  leading  edge  can  be  used  to  obtain 
the  layer  parameters  at  a greater  range  than  that  corresponding 
to  the  previous  set  of  data  points.  In  obtaining  these  layer 
parameters,  the  solution  for  the  first  set  of  three  data  points 
can  be  used  as  the  starting  solution.  A repetition  of  this 
process  continuously  along  the  leading  edge  for  successive  sets 
of  three  data  points  yields  the  layer  parameters  as  a function 
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of  distance  away  from  the  sounder  site.  This  is  the  technique 
we  employ  in  the  following  sections. 

3.4.2.  Inversion  of  Synthesized  QP  Layer  Data 

The  basic  technique  of  inversion  of  points  on  the  backscatter 
leading  edge  for  quasi-parabolic  layer  parameters  is  tested  by 
simulating  the  leading  edge  for  assumed  QP  layer  parameters  and 
then  polluting  the  simulated  data  by  adding  a few  kilometers  to 
one  or  more  of  the  points.  The  assumed  values  of  the  layer  para- 
meters are  r.=6570  km,  r =6720  km,  and  f =5.0  MHz.  Minimum  group 
paths  for  frequencies  of  10,  11,  and  12  MHz  are  synthesized  to 
be  P^=1866.1  km,  P2=2133.8  km,  and  P!j=2441.3  km,  respectively. 

Table  3.4  shows  the  results  of  the  test  by  indicating  the  errors 
introduced  in  P^,  P^ , and  P^  and  the  corresponding  solution  ob- 
tained by  inverting  the  polluted  data.  For  each  case,  starting 
values  of  layer  parameters  used  are  ^=6500  km,  rm=6650  km,  and 
fc=4.0  MHz.  From  Table  3.4,  it  can  be  seen  that  even  small 
measurement  errors  seem  to  appreciably  affect  the  results  of 
inversion  of  the  leading  edge  data. 

To  investigate  further  the  sensitivity  of  the  inversion 
process  to  measurement  errors,  the  procedure  has  been  generalized 
to  permit  the  use  of  a variable  number  (N)  of  data  points  in  the 
inversion  technique,  that  is,  for  minimizing  the  error  function  E. 
Leading  edge  data  are  synthesized  for  an  earth-concentric  QP  layer 
having  the  parameters  r^=6570  km,  rm=6720  km,  and  fc=7.0  MHz  and 
at  increments  of  0.25  MHz  throughout  the  frequency  range  of  10.0 
to  13.0  MHz.  These  data  are  then  made  noisy  by  the  addition  of 
samples  of  a random  variable  uniformly  distributed  over  the  interval 

i 
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-1.0  km  to  +1.0  km,  as  illustrated  in  Table  3.5.  These  random 
noise  values  were  chosen  to  be  the  rightmost  three  digits  from 
consecutive  entries  on  a page  of  the  local  telephone  directory. 
Using  an  initial  estimate  of  layer  parameters  ^=6600  km,  rm=6  700 
km,  and  fc=9.0  MHz.  These  data  are  inverted  by  using  different 
sets  of  points,  as  shown  in  Table  3.6.  It  can  be  seen  that  the 
percent  error  in  determining  the  actual  parameters  of  the  QP 
layer  decreases  as  the  number  of  noisy  data  points  used  in  the 
inversion  process  is  increased. 
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Table 

3.5.  Noisy 

Backscatter 

Leading 

Edge 

Synthesis  ■ 

— Assuming 

Earth- 

Centered  Q-P  Ionosphere  ^=65  70  km. 

r =6720  km, 
m 

an  d f c=  7 . 0 

MHz 

Point 

f . 

i 

Precise  P' 
M . 

Addi ti ve 

Noise 

Noisy  P^ 

No. 

(MHz) 

(km) 

(km) 

(km) 

1 

10.00 

1233.  388 

.114 

1233.502 

2 

10.25 

1268.959 

-.096 

1268. 863 

3 

10.50 

1304.946 

-.257 

1304.689 

4 

10 . 75 

1341.  369 

-.  332 

1341.037 

5 

11.00 

1378.250 

-.5  76 

1377.674 

6 

11.25 

1415.611 

.945 

1416.556 

7 

11.50 

1453.475 

-.988 

1452.487 

8 

11. 75 

1491. 867 

.062 

1491.929 

9 

12.00 

1530.814 

-.600 

15  30 .214 

10 

12.25 

1570. 344 

-.760 

1569.584 

11 

12.50 

1610.486 

-.271 

1610.215 

12 

12.75 

1651. 272 

+ .931 

1652.203 

£ 


'<*•  4 *r * . >*.  . i.'  « 
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Table  3.6.  Results  of  Inversion  of  the  Data  in 
Table  3.4,  Using  Various  Numbers  of  Points  in  E. 


Number  of 
leading  edge  pts 
used 

Optimi  zed 
value  of 
E (km2 ) 

% error 
in 

rb 

% error 
in 

rm 

% error 
in 
f 

c 

N=  3 

using  points 
1,  6,  12 

. 17203 

.1040 

.155 

1.77 

N=6 

using  points 
1,3,5, 

7,9,12 

1. 8730 

.052 

.0327 

.659 

N=9 

using  points 

2. 394  3 

.0472 

.0193 

.129 

I, 2, 4,5, 
7,8,10, 

II, 12 
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3.4.3  Inversion  of  Synthesized  Data  Involving 
Horizontal  Gradients 


To  investigate  the  technique  of  inversion  of  successive  sets 
of  three  data  points  on  the  leading  edge  for  the  horizontal  grad- 
ients, the  eccentric  QP  layer  model  discussed  in  Sec. 3.2.2  is 
employed.  First,  for  assumed  layer  parameters  of  ^=65  70  km,  rm= 

6 720  km,  fc=5.0  MHz,  D=1000  km,  and  <jjt=0  , data  points  on  the  lead- 
ing edge  trace  are  computed  for  every  0.5  MHz  from  7.0  to  11.0 
MHz.  Next,  the  points  are  grouped  in  four  sets  of  three,  starting 
with  (7.0,  7.5,  8.0),  then  (8.0,  8.5,  9.0),  etc.  Each  group  of 
three  data  points  is  then  inverted  for  the  parameters  of  a concen- 
tric QP  layer.  The  first  group  is  inverted  by  using  an  arbitrary 
starting  set  of  layer  parameters  (^=6500  km,  rm=6650  km,  and  f = 
4.0  MHz).  Succeeding  groups  of  data  are  inverted  by  starting  with 
the  layer  parameters  obtained  for  the  previous  group  of  data 
points.  The  synthesized  data  as  well  as  the  computed  layer  param- 
eter values  are  shown  in  Table  3.7.  It  can  be  seen  from  this 
table  that  inverted  layer  parameters  indeed  exhibit  horizontal 
gradient.  When  the  magnitude  of  the  gradient  in  r^  or  rm  is  com- 
pared with  that  predicted  from  the  model,  with  the  use  of  Fig.  3.5, 

i 

they  are  found  to  be  in  good  agreement. 

For  a practical  example  of  the  backscatter  ionogram  leading 
edge  for  horizontal  gradients,  we  consider  the  data  supplied  by 
the  contract  sponsor.  These  data  of  minimum  group  paths  are  sim- 
ulated by  3-D  ray  tracing  for  models  of  the  ionosphere,  derived 

' from  ITS-78  predictions  by  applying  various  linear  tilts  and 

gradients  to  a median  profile.  This  median  profile,  shown  in 

( 

V 


INVERSION  OF  SYNTHESIZED  BACKSCATTER  LEADING  EDGE  DATA 
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Fig.  3.17,  is  assumed  to  represent  the  vertical  profile  at  a 
range  of  3500  km  from  a backscatter  sounder  site.  A linear  in- 
crease or  decrease  of  the  layer  parameters  along  the  sounder 
boresight  is  then  introduced  as  follows: 


(i)  Gradients:  f F2  = (f  F2 ) ± na 

o o me  di  an 


h F„  = (h  F2) 
m2  m median 


(ii)  Tilts: 


f F2  = (f  F2) 
o o median 


h F2  = (h  F2)  ± pb 

m m median 


where  n,  p=0,l,2,3  and  a=l  MHz/3500  km,  and  b=10  km/3500  km. 

The  simulated  minimum  group  values  are  shown  in  Table  3.8.  The 
numbers  in  each  box  corresponding  to  one  leading  edge.  Thus  we 
have  31  leading  edges. 

Each  set  of  leading  edge  data  in  table  3.8  are  inverted  for 
QP  layer  profiles  along  the  boresight  by  considering  overlapping 
sets  of  the  three  data  points.  Thus  a set  of  five  data  points 
for  the  minimum  group  path  yield  three  sets  of  QP  layer  parameters 
corresponding  to  different  ranges  from  the  sounder  location. 

The  inversion  results  are  shown  in  Tables  3.9  through  3.12,  which 
correspond  to  the  ground  range,  peak  height  of  the  layer,  base 
height  of  the  layer,  and  the  critical  frequency  of  the  layer, 
respectively.  These  results  indicate  that  while  it  is  difficult 
to  compare  quantitatively  the  gradients  with  those  of  the  original 
model  in  view  of  the  differences  in  the  two  vertical  profiles,  the 
directions  of  the  gradients  are  generally  determined  correctly  by 
this  procedure. 


ALTITUDE  (km) 


Figure  3.17.  Nominal  electron  density  profile 


r 
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Table  3.  8 


Group  Path  (km)  to  Leading  Edge  of  Backscatter  Ionogram  for 
Various  Linear  Tilts  and  Gradients. 


P 


-3 

-2 

-1 

0 

1 

2 

3 

n 

f=ll  MHz 

10  36 

10  38 

1041 

1044 

14 

1388 

1395 

1402 

1409 

-3 

17 

1815 

1828 

1838 

1852 

20 

2 39  8 

2423 

2459 

2499 

23 

— 

— 

— 

— 

11 

1025 

1028 

10  31 

1033 

14 

136  4 

1370 

1377 

1384 

-2 

17 

1766 

1777 

1788 

1802 

20 

2288 

2 312 

2 334 

2 372 

23 

3128 

3216 

3305 

3395 

11 

1015 

1017 

1021 

1023 

14 

1343 

1349 

135  4 

1361 

-1 

17 

1724 

1736 

1743 

1755 

20 

219  4 

2215 

2235 

2264 

23 

2855 

2926 

2992 

30  4 4 

11 

1005 

1008 

1011 

1014 

1017 

1019 

1021 

14 

1322 

132  8 

1334 

1338 

1345 

1351 

1357 

0 

17 

16  85 

1674 

1704 

1715 

1725 

1743 

1761 

20 

2114 

2132 

2152 

2184 

2209 

2 2 32 

2254 

23 

2698 

2735 

2785 

2848 

2 875 

2905 

2 9 30 

11 

1004 

1006 

1009 

1012 

14 

1320 

132  4 

1330 

1336 

1 

17 

1677 

16  88 

1705 

1713 

20 

2110 

2133 

2155 

2176 

23 

2679 

2717 

2 751 

2787 

11 

995 

998 

1000 

100  3 

14 

1302 

130  7 

1312 

1317 

2 

17 

1643 

1654 

1668 

16  82 

20 

2049 

2069 

2088 

210  7 

23 

2550 

2584 

2617 

2647 

11 

987 

989 

992 

994 

14 

1284 

12  89 

1294 

1299 

3 

17 

1611 

1622 

16  36 

1648 

20 

1993 

2012 

2029 

2047 

23 

2449 

2475 

250  3 

25  31 

Table  3.9 


Ground  Range  (km) 


-3 

-2 

-1 

0 

1 

2 

3 

f =14  MHz 

1291 

1302 

1310 

1320 

17 

1722 

1738 

1751 

1768 

14 

12  45 

1256 

1268 

12  82 

17 

1658 

16  71 

1684 

1706 

20 

2182 

2208 

2229 

2278 

14 

1200 

1218 

1221 

12  37 

17 

1597 

1616 

1622 

1641 

20 

2071 

2099 

2113 

2157 

14 

1145 

1104 

1173 

1184 

1198 

1220 

1358 

17 

15  30 

15  39 

1563 

15  80 

1595 

1625 

1755 

20 

1969 

2006 

2018 

2061 

2085 

2113 

2251 

14 

1132 

1150 

1178 

1193 

17 

1517 

1537 

1569 

1585 

20 

1966 

1993 

2024 

2046 

14 

1061 

1083 

1122 

1145 

17 

1450 

1471 

150  8 

1528 

20 

1878 

1902 

1937 

19  5 7 

14 

958 

1006 

1052 

1084 

17 

1381 

1404 

1443 

1466 

20 

179  5 

1816 

1849 

1871 
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Table  3. 10 


Height  of  Maximum  Plasma  Frequency 

(h  F.) 
m 2 

(kilometers) 


P 


n 

-3 

-2 

-1 

0 

1 

2 

3 

f =14  MHz 

2 35 

2 36 

2 39 

2 39 

-3 

17 

2 30 

2 32 

220 

214 

14 

2 44 

243 

247 

249 

-2 

17 

245 

2 39 

238 

2 31 

20 

245 

2 39 

2 36 

2 38 

14 

264 

262 

260 

262 

-1 

17 

2 74 

2 82 

258 

250 

20 

2 76 

262 

258 

256 

14 

289 

347 

283 

2 70 

269 

249 

234 

0 

17 

30  3 

2 76 

290 

266 

260 

263 

268 

20 

290 

278 

277 

268 

277 

30  7 

319 

14 

305 

288 

269 

259 

1 

17 

292 

281 

2 86 

2 80 

20 

292 

290 

311 

311 

14 

340 

324 

302 

283 

2 

17 

321 

311 

305 

306 

20 

320 

315 

32  8 

332 

14 

391 

364 

336 

315 

3 

17 

351 

339 

3 30 

32  4 

20 

346 

34  4 

356 

358 
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Table  3.11 

Base  Height  of  Ionosphere  (km) 


P 


-3 

-2 

-1 

0 

1 

2 

3 

n 

f=14  MHz 

136 . 7 

129.4 

126.4 

122.1 

-3 

17 

142.6 

135.1 

142 .2 

139.1 

14 

164.5 

156 . 8 

147.7 

136.6 

-2 

17 

161.  3 

16  3.2 

159.9 

151.1 

20 

160.9 

16  3.  3 

169.9 

135.4 

14 

186. 7 

169.5 

174.7 

158.9 

-1 

17 

174.7 

159.1 

179 .5 

173.2 

20 

174 . 7 

177.  8 

202.0 

156 . 1 

14 

215.9 

224.1 

196. 3 

201.1 

189.3 

181.7 

175.7 

0 

17 

207.6 

211.  8 

187.0 

204.2 

205.2 

165.5 

157.  3 

20 

225.1 

169.4 

213.5 

182.5 

167.0 

148.7 

150.5 

14 

215.4 

212. 3 

198.9 

195.5 

1 

17 

228.1 

222.4 

178.9 

177.0 

20 

205.4 

194.2 

168.6 

166.8 

14 

248.9 

245.0 

222.4 

216.1 

2 

17 

262.3 

256.4 

205  . 3 

191.3 

I ; 

20 

231.4 

226.2 

191.0 

187.1 

1 \ 
1 i 

14 

291.4 

274.2 

258.1 

247.7 

3 

17 

2 86. 7 

283.6 

233.4 

221.0 

20 

258.0 

251.0 

218.  3 

210.7 

% 

i 

4* 


Table  3.12 


Critical  Frequency  (f0F2^ 
(in  MHz.) 


P 


n 

-3 

-2 

-1 

0 

1 

2 

3 

f=l 4 MHz 

6.237 

6.207 

6.224 

6.156 

-3 

17 

6.140 

6.15  8 

5. 872 

5.725 

14 

6.568 

6.523 

6.567 

6 .530 

-2 

17 

6.610 

6.448 

6. 386 

6.198 

20 

6.613 

6.447 

6. 334 

6 . 316 

14 

7.148 

7.061 

7.002 

7.005 

-1 

17 

7.378 

7.466 

6.943 

6.740 

20 

7.  413 

7.072 

6.873 

6. 856 

14 

7.  80  4 

9 . 232 

7.644 

7.2  72 

7.251 

6. 732 

6. 322 

0 

17 

8.173 

7.488 

7.  816 

7.146 

6.937 

7.078 

7.118 

20 

7.  814 

7.614 

7.444 

7.265 

7.400 

7.  830 

7.990 

14 

8.2  35 

7.  7 84 

7.274 

7.001 

1 

17 

7.  853 

7.546 

7.  706 

7.538 

20 

7.937 

7.  868 

8.184 

8.125 

14 

9.193 

8.  739 

8.176 

7.6  79 

2 

17 

8.558 

8.262 

8.288 

8.264 

20 

8.713 

8.547 

8. 76  3 

8.  782 

14 

10.537 

9.831 

9.0  72 

8.481 

3 

17 

9.414 

9.037 

9.020 

8.814 

20 

9.450 

9.378 

9.595 

9.559 

'f  ' • >*. 


3.4.4  Inversion  of  Synthesized  Data  for  Three-Dimensional 
Ionosphere 

For  nonzero  value  of  the  parameter  that  is,  when  the  trans- 

mitter is  not  situated  along  the  line  joining  the  Earth's  center 
to  the  center  of  the  ionosphere,  the  eccentric  quasi-parabolic 
layer  provides  a three-dimensional  variation  of  the  electron 
density  with  respect  to  the  transmitter  location.  Hence  when 
backscatter  leading  edge  data  are  synthesized  for  various  azimu- 
thal directions  from  the  transmitter,  they  will  all  be  different. 
To  test  the  inversion  of  synthesized  data  for  a three-dimensional 
ionosphere,  leading  edges  are  synthesized  by  assuming  eccentric 

QP  layer  parameters  of  r =6570  km,  r =6720  km,  f =7.00  MHz,  D= 

d m c 

500  km,  and  (dt=5  ° , and  for  azimuthal  beam  headings  from  0°  to 

70°  in  steps  of  10°.  The  leading  edge  data  for  each  azimuth  is 

then  inverted  in  the  usual  manner.  The  resulting  concentric  QP 

layer  parameters  as  a function  of  range  from  the  transmitter  and 

azimuth  are  shown  in  Table  3.13.  The  entries  in  each  box  of  this 

table  correspond  to  values  of  r.  , r , and  f , respectively.  It 

bm  c 

can  be  seen  that  the  inversion  results  do  indicate  the  three  di- 
mensional variability  of  the  assumed  ionospheric  model. 

As  a further  test  of  the  inversion  technique,  the  three- 
dimensional  ionospheric  model  supplied  by  the  contract  sponsor 
is  used  and  by  three-dimensional  ray  tracing  including  magnetic 
field  backscatter  leading  edges  are  generated  for  two  azimuths 
(330°  and  358°)  with  the  transmitter  located  at  the  geographic 
coordinates  of  40 °N  lat.  and  175°  long.  The  generated  minimum 
group  path  values  and  other  propagation  parameters  versus  fre- 


Table  3.13.  Results  of  Inversion  of  Simulated  Backscatter  Ionogram  Data 
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quency  are  shown  in  Tables  3.14  and  3.15.  To  invert  these  lead- 
ing edge  data,  a QP  layer  is  fitted  to  the  actual  vertical  electron 
density  profile  existing  above  the  transmitter  location.  By 
using  these  QP  layer  parameters  as  the  starting  solution,  over- 
lapping sets  of  three  data  points  along  the  leading  edge  are 
inverted  for  QP  layer  parameters.  In  inverting  a given  set  other 
than  the  first  one,  the  solution  found  for  the  previous  set  is 
used  as  the  starting  solution.  For  each  set  of  data  inverted, 
the  corresponding  ground  range  is  computed  and  the  QP  layer  param- 
eters are  assigned  to  a location  half  that  distance  from  the  trans- 
mitter and  along  the  pertinent  azimuth.  The  layer  parameters  and 
the  corresponding  ranges  generated  in  this  manner  are  listed  in 
Tables  3.16  and  3.17.  It  can  be  seen  that  in  this  manner,  actual 
experimental  backscatter  leading  edge  data  for  various  azimuthal 
directions  from  the  transmitter  location  can  be  inverted  for  a 
three  dimensional  ionosphere  specified  by  QP  layer  parameters  at 
a set  of  grid  points  located  along  the  azimuthal  directions. 
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Table  3.14.  Computed  minimum  group  path  data  and  other 
propagation  parameters  for  transmitter 
location  of  40°N,  175°W,  and  330°  azimuth. 


Frequency , 
MHz 


Minimum 
Group  path, 
km 


Ground  range, 
km 


Apogee  height, 
km 


10 

798.  35 

468.81 

11 

884. 79 

590.29 

12 

972.60 

70  8.6  3 

13 

1062.92 

826 . 38 

14 

1155.56 

929.67 

15 

1251.66 

1041.29 

16 

1349.12 

1150.64 

17 

1450.55 

1261.44 

18 

1555.26 

1370 . 37 

19 

1665.43 

1483.68 

20 

1780.63 

1604.12 

V*-  *4  ' 


220.26 
222.25 
222.02 
220.63 
223.15 
222 . 89 
222.91 
223.20 
225.13 
227.10 
227.60 
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Table 

3.15.  Same  as  Table 

3.14  except  for 

358°  azimuth 

Frequency , 
MHz 

Minimum 
Group  path, 
km 

Ground  range, 
km 

Apogee  height 
km 

10 

805.04 

474.50 

222.20 

11 

894.16 

598. 72 

224. 30 

12 

984.55 

719.84 

224.14 

13 

1077.68 

840.37 

222.70 

14 

1173.13 

954.99 

222.23 

15 

1273.45 

1062.07 

225.29 

16 

1376.13 

1172.57 

227.20 

17 

1483.70 

1293.45 

225.99 

18 

1596.70 

1417.13 

224.96 

19 

1714.86 

1531.40 

230.46 

( 

k' 


'f  H'--*  . >iS 


Table  3.16 


Computed  QP  layer  parameter  values  and 
the  corresponding  ground  ranges  for 
330°  azimuth 


Range , km 

fc,  MHz 

r^  , km 

3 

3 

327.56 

9.2406 

6556 . 4 

6676.2 

377.18 

9. 349  3 

6561.9 

6679.5 

431.21 

9.3344 

6561.2 

6679.1 

486 . 87 

9.2511 

6557.4 

6676 . 4 

531.07 

9 . 7489 

6565.8 

6694.9 

577.99 

10.0895 

6573.9 

6707.4 

632.21 

10.1063 

6574.6 

6708.0 

689.80 

10.0  42 

6572.1 

6705.8 

749.46 

9.9592  - 

6568.2 

6702.9 

Table  3.17. 

Same  as  Table 

3.16  except  for  358° 

azimuth 

Range  , km 

f , MHz 

r^ , km 

rm'  km 

373.28 

8. 39  81 

6509.2 

6661.6 

414.73 

8.9054 

6519.1 

6680.1 

461.30 

9.0253 

6526.2 

6681.9 

515.75 

8.9677 

6522.8 

6680.9 

568.43 

8.9757 

6523.2 

6681.1 

619.54 

9.0693 

6529.0 

6682.8 

676.62 

9.0482 

6527.7 

6682.4 

732.96 

9.2278 

6528.4 

6690.8 
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3.4.5  Application  of  the  Backscatter  Inversion  Technique 


It  has  been  pointed  out  in  Sec.  3.1,  that  while  the  back- 
scatter leading  edge  is  not  capable  of  providing  the  ionospheric 
vertical  profiles  above  certain  heights,  this  is  not  a limitation 
in  so  far  as  the  application  of  the  inversion  technique  is  con- 
cerned. In  this  section,  we  shall  prove  this  point  and  provide 
an  explanation  for  the  applicability  of  the  inversion  technique 
despite  the  limitation  for  obtaining  the  complete  ionospheric 
structure.  To  do  this,  we  consider  an  important  application, 
which  consists  of  finding  the  ground  range  for  a given  group 
path  (not  a minimum  group  path)  at  a known  frequency,  and  com- 
pare the  applicability  of  the  deduced  three-dimensional  ionosphere 
by  inversion  of  the  leading  edge  data,  relative  to  that  of  the 
originally  assumed  three-dimensional  model. 

Referring  back  to  Sec.  3.4.4  in  which  we  presented  the  re- 
sult of  inversion  of  synthesized  leading  edges  for  two  azimuths 
for  the  Air  Force  supplied  model,  we  now  trace  rays  at  one  fre- 
quency (16  MHz)  in  the  original  as  well  as  the  computed  ionos- 
pheres for  an  azimuth  of  340°  (lying  between  330°  and  358°  cor- 
responding to  the  inverted  backscatter  data)  and  for  several 
elevation  angles  of  transmission.  For  tracing  rays  in  the  com- 
puted ionosphere,  it  should  be  noted  that  the  rectangular  grid 
of  the  originally  assumed  model  is  uniformly  spaced,  whereas 
the  grid  generated  by  the  inversion  of  the  leading  edge  data  is 
nonuniformly  spaced,  in  addition  to  being  in  azimuth-range  space, 
rather  than  in  the  latitude-longitude  space.  Hence  it  has  become 
necessary  to  generate  vertical  profiles  at  the  uniformly  spaced 


iMfc. 
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rectangular  grid  of  points  by  applying  an  interpolation  procedure 
to  the  QP  profiles  at  the  grid  point  in  the  azimuth-range  space. 
The  result  of  these  ray  tracings  are  shown  in  Tables  3.18  and 
3.19,  which  correspond  to  the  originally  assumed  model  and  the 
computed  ionosphere,  respectively.  The  quantity  (P'-R)  is  shown 
plotted  versus  P1  for  the  two  cases  in  Fig.  3.18.  A comparison 
of  the  two  curves  indicates  that  the  computed  ionosphere  gives 
the  correct  range  to  within  + 2 km  for  a wide  range  of  group 
path  values.  The  discrepancies  greater  than  t 2 km  toward  the 
low  end  of  the  curves  are  attributable  to  the  fact  that  the 
region  is  close  to  the  minimum  group  path,  whereas  the  discre- 
pancies greater  than  ± 2 km  toward  the  high  end  of  the  curves 
are  attributable  to  the  fact  that  the  region  is  beyond  the  range 
corresponding  to  the  inverted  backscatter  data. 

We  shall  now  provide  a simple  explanation  for  the  success 
of  the  technique  in  finding  the  range  for  a given  group  path  to 
a good  accuracy,  despite  the  fact  that  the  minimum  group  path 
rays  all  reflect  from  below  a certain  apogee  height,  as  can  be 
seen  from  Tables  3.14  and  3.15  and  hence  cannot  yield  the  verti- 
cal profiles  above  those  apogee  heights.  To  do  this,  we  refer 
to  Fig.  3.19  which  illustrates  the  fact  that  the  backscatter 
ionogram  is  a continuum  of  oblique  ionograms  corresponding  to 
sucessively  increasing  values  of  ground  range  away  from  the 
transmitter.  Let  us  suppose  we  have  found  the  range  corresponding 
to  a particular  point  A (f^,  P^')  on  the  leading  edge.  Then  a 
point  B,  corresponding  to  the  same  group  path  as  that  of  A but 
to  a frequency  f2  < f^,  corresponds  to  a range  greater  than  that 
of  A.  Alternatively,  it  corresponds  to  a range  corresponding  to 


Figure  3.18.  Reconstruction  of  ground  range 


r 
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Table  3.18.  Group  path  and  ground  range  versus  elevation 
angle  for  16  MHz  and  for  340°  azimuth,  using 
the  originally  assumed  model. 


Elevation 
angle,  deg. 

Group  path 
P 1 , km 

Ground  range 
R , km 

(P'-R) 

km 

10 

1985.06 

1888.14 

96.92 

12 

1795.51 

1693.76 

101.76 

14 

1661.89 

1552.97 

108.92 

16 

1563.03 

1444 . 75 

118.28 

18 

1490.80 

1361. 39 

129.41 

20 

1435.69 

1293. 32 

142.37 

22 

1393.93 

1236.40 

157.53 

24 

1371.43 

1196.75 

174.68 

Table  3.19. 

Same  as  Table 
ionosphere 

3.18  except  using  the 

computed 

Elevation 

Group  path 

Ground  range 

(P'-R) 

angle,  deg. 

P'  , km 

R,  km 

km 

14 

1921.58 

1833. 31 

88.27 

16 

1892.55 

1796.50 

96.05 

18 

1725.20 

1619.59 

105.61 

20 

1555.49 

1437.47 

118.02 

22 

1458.60 

1321.65 

136.95 

24 

1422.14 

1257. 31 

176.83 
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that  of  a point  C on  the  leading  edge,  lying  above  the  point  A. 
Hence  the  ray  of  frequency  f2  and  group  path  reflects  below 
the  apogee  height  corresponding  to  the  point  C.  Since  this  argu- 
ment is  true  for  any  point  on  the  low-ray  portions  of  the  oblique 
ionograms,  it  follows  that  one  can  always  find  the  range  corres- 
ponding to  such  a point,  although  the  backscatter  leading  edge  is 
not  capable  of  yielding  the  ionospheric  profile  above  the  apogee 
heights  corresponding  to  the  minimum  group  path  rays. 

Spurred  by  the  success  of  the  application  of  the  backs _atter 
leading  edge  inversion  technique  in  the  determination  of  the 
ground  range  for  a given  group  path,  we  decided  to  combine  the 
inversion  problem  and  the  subsequent  range  determination  into 
one  computer  program.  Thus,  provided  with  the  input  of  back- 
scatter leading  edge  data  for  several  azimuths  and  the  group 
path  values  (non-minimum)  at  several  frequencies  for  a different 
azimuth,  the  program  computes  the  ground  ranges.  To  carry  out 
the  range  computation,  we  decided  to  employ  a simple  homing  tech- 
nique in  conjunction  with  the  exact  ray  path  computation  for  the 
concentric  QP  layer  rather  than  the  elaborate  three-dimensional 
ray  tracing  including  the  Earth's  magnetic  field.  The  details 
of  the  entire  program  are  presented  in  the  appendix. 

To  describe  the  procedure  briefly,  first  each  backscatter 
leading  edge  is  inverted  for  a series  of  QP  layer  profiles  along 
the  corresponding  azimuth,  in  the  usual  manner.  For  each  speci- 
fied group  path  value  (P')  for  which  the  ground  range  is  to  be 
determined,  the  program  then  computes  a rough  estimate  of  the 
range,  based  on  specular  reflection  at  an  assumed  value  of  base 
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height  of  the  ionosphere.  By  an  interpolation  procedure  involv- 
ing two  azimuths  and  two  ranges  along  each  azimuth  as  shown  in 
Fig.  3.20,  the  program  then  computes  the  QP  layer  parameters  at 
half  the  estimated  ground  range  along  the  azimuth  (a)  corres- 
ponding to  the  group  path  data.  Using  analytical  expressions 
for  ray  path  parameters  and  the  interpolated  QP  layer  parameters, 
a ground  range  value  is  computed  for  the  specified  group  path, 
employing  an  iterative  technique.  If  this  range  value  is  close 
to  the  original  estimate  to  within  a specified  tolerance,  it  is 
the  desired  result;  otherwise,  the  procedure  is  repeated  until 
a final  range  value  is  obtained  which  agrees  with  the  prvious 
value  to  within  the  specified  tolerance.  The  technique  is  illus- 
trated in  the  block  diagram  of  Fig.  3.21. 

As  a test  of  the  above  discussed  simplified  method  of  appli- 
cation of  backscatter  ionograms , the  leading  edge  inversion  results 
presented  in  Tables  3.16  and  3.17  are  used  to  compute  the  ground 
ranges  for  various  values  of  group  path  for  f=16  MHz  and  azimuthal 
angle  of  340°.  The  results  are  shown  in  Table  3.20,  which  indi- 
cates larger  errors  in  (P'-R)  than  in  Table  3.19,  but  still  less 
than  15  percent  of  the  actual  values  of  (P'-R)  given  in  Table  3.18. 
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TWO  AZIMUTHAL  DIRECTIONS 
IN  WHICH  IONOSPHERE  HAS 
BEEN  PROBED  BY  BSI 


x DENOTES  POINTS  ON  SURFACE  OF  EARTH 
FOR  WHICH  QPP  HAVE  BEEN  DETERMINED 
IN  ORDER  TO  DESCRIBE  OVERHEAD  IONOSPHERE 

Figure  3.20.  Interpolation  procedure. 


• . v, 


142 


m 

l 


3.20.  Same  as 

Table  3.18  except 

using  the 

Simplified 

Ionospheric  Model 

Group  path 

Ground  range 

(P ' -R) 

P ' , km 

R km 

km 

1985.06 

1904.16 

80.50 

1795.51 

1707.41 

88.10 

1661.89 

1565.75 

96.14 

1563.03 

1457.76 

105.27 

1490.80 

1375.62 

115.18 

1435.69 

1308.68 

127.01 

1393.93 

1252.20 

141.73 

1371.43 

1216.52 

154.91 
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3.4.6  Uniqueness  of  the  Application  of  the  Inversion  Technique 

In  this  section  we  will  consider  the  effect  of  the  initial 
estimate  of  QPP  (QP  layer  parameters)  upon  the  inversion  of  group 
delay  into  ground  range.  The  motivation  for  this  simulation  was 
to  determine  the  possible  effects  of  the  nonuniqueness  of  the 
inversion  of  backscatter  ionogram  data  into  ionospheric  refrac- 
tive index.  Also  we  were  interested  in  the  reliability  of  the 
present  technique  in  providing  a reasonably  consistent  inversion 
between  group  delay  and  ground  range,  despite  the  uncertainty 
involved  in  the  initial  estimate  of  QPP. 

The  results  of  this  analysis,  to  date,  are  presented  in  the 
following  set  of  tables.  The  procedure  used  in  generating  these 
tables  was  to  vary  one  of  the  three  initial  QPP  while  keeping 
the  other  two  parameters  fixed,  and  observe  the  effect  of  this 
variation  upon  the  inversion  of  a fixed  value  of  group  path 
into  a computed  value  of  ground  range.  For  our  present  purposes, 
we  will  consider  the  QPP  to  consist  of  the  semi thickness  of  the 
layer  (ym) > the  height  of  the  base  of  the  ionosphere  (h^) , and 
the  critical,  or  maximum,  plasma  frequency  (foF2>.  Other  param- 
eters such  as  r,  (h,+6  370  km)  and  r (y  +h,+6  370  km)  may  be  ob- 
d d m m b 

tained  easily  once  y^  and  h^  are  specified.  Table  3.21  speci- 
fically indicates  the  effect  of  varying  r^  which  is  equivalent 
to  varying  h^.  The  last  column  illustrates  the  small  variation 
in  the  computed  ground  range  thereby  induced  in  the  case  of  an 
untilted  (no  horizontal  gradient)  ionosphere.  Table  3.22  dem- 
< onstrates  the  effect  of  varying  the  initial  estimate  of  the 

maximum  plasma  frequency  (or  critical  frequency) , and  again  we 
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UNTILTED  IONOSPHERE 

Table  3.21:  The  Effect  of  Varying  r,  Initial  Estimate  Upon 

Inversion  of  Group  Path  into  Ground  Range. 


Theoretical  Grp.  Initial 

Path  (km)  r. 

b 

1700  6510 

6520 

6530 

6540 

6550 

1900  6510 

6520 
6 5 30 
6540 
6550 

2100  6510 

6520 

6530 

6540 


Est.  of  Computed  Grnd. 

Range  (km) 

1591.89 

1591.26 
1591.93 

1590.95 
1590.53 

1809.76 

1809.26 

1809.79 

1808.96 
1808.65 

2020.76 
2020.43 

2020.79 
2020.15 


6550 


2019.98 
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see  chat  the  effect  upon  the  computed  ground  range  is  small. 

Table  3.23  demonstrates  the  effect  of  variations  in  the  initial 
estimate  of  r^  while  keeping  r^  fixed.  This  corresponds  to  ex- 
pansion and  contraction  of  the  vertical  dimensions  of  the  ionos- 
phere through  the  variation  of  y . The  variation  in  the  com- 
puted ground  range  is  somewhat  larger  than  the  variation  obtained 
in  the  previous  two  tables.  Nevertheless,  it  should  be  noted 
that  even  though  rm  is  varying  by  less  than  1%  from  its  nominal 
value  of  6610  km,  the  really  significant  parameter  is  the  semi- 
thickness (y  ) of  the  ionospheric  layer,  and  this  latter  param- 
eter is  varying  over  a proportionately  larger  range — i.e.  rm= 

6600  km  corresponds  to  a 70  km  semi thickness , while  r =6620  km 

m 

corresponds  to  a 90  km  semi thickness  . 

This  type  of  analysis  has  also  been  performed  for  a tilted 
ionosphere  (an  ionosphere  with  a horizontal  gradient) . Tables 
3.24,  3.25,  and  3.26  correspond  to  Tables  3.21,  3.22,  and  3.23 
respectively,  and  in  comparing  these  two  sets  of  tables,  it  would 
appear  that  the  inversion  of  group  path  into  ground  range  is  more 
sensitive  to  the  variability  of  the  initial  QPP  in  a tilted  ion- 
osphere. This  effect  would  seem  to  be  most  pronounced  in  the 

case  of  variations  of  r . 

m 

We  therefore  decided  to  consider  the  possible  causes  of 
the  relatively  large  variation  in  ground  range  resulting  from 
the  simulated  uncertainty  in  the  initial  value  of  r . By  narrow- 
ing the  uncertainty  in  the  initial  estimate  of  r^  by  a factor 
of  2,  it  can  be  seen  that  the  variability  of  the  ground  range 
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UNTILTED  IONOSPHERE 

Table  3.22:  The  Effect  of  Varying  the  Initial  Estimate  of 

Critical  Frequency  Upon  Inversion  of  Group  Path 
Into  Ground  Range. 


Theoretical  Grp. 
Path  (km) 

Initial  Est.  of 
rb  (km) 

Computed  Grnd 
Range  (km) 

1700 

6.75 

1592.09 

7.00 

1591. 35 

7.25 

1591.93 

7.50 

1591.17 

7.75 

1591.04 

1900 

6.75 

1809.92 

7.00 

1809 . 33 

7.25 

1809 . 79 

7.50 

1809 . 19 

7.75 

1809 . 11 

2100 

6.75 

2020.28 

7.00 

2020.46 

7.25 

2020 . 79 

7.50 

2020. 39 

7.75 

2020. 35 

\ 
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UNTILTED  IONOSPHERE 

Table  3.23:  The  Effect  of  Varying  Layer  Semi thickness 


Upon  Inversion 

of  Group 

Path  to  Ground 

Theoretical  Grp. 

Initial 

Est 

. of 

Computed  Grnd. 

Path  (km) 

r (km) 
m 

(km) 

Range  (km) 

1700 

6600 

70 

1590.60 

6605 

75 

1590.56 

6610 

80 

1591.93 

6615 

85 

1592.26 

6620 

90 

1591.96 

1900 

6600 

70 

1808.73 

6605 

75 

1808.67 

6610 

80 

1809. 79 

6615 

85 

1810.06 

6620 

90 

1809. 81 

2100 

6600 

70 

2020.08 

6605 

75 

2020.14 

6610 

80 

2020.79 

6615 

85 

2020 .98 

6620 

90 

2020.80 
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TILTED  IONOSPHERE 

Table  3.24:  The  Effect  of  the  Initial  Estimate  of  (Radius  to 

Ionospheric  Base)  Upon  the  Inversion  of^Group  Path 
into  Ground  Range. 


Theoretical  Grp. 
Path  (km) 

Initial  Est.  of 
r^  (km) 

Computed  Grnd 
Range  (km) 

1700 

6510 

1584.67 

6520 

1583.57 

6530 

1586 .57 

6540 

1586 . 86 

6550 

1583.67 

1900 

6510 

1798.66 

6520 

1792.39 

6530 

1794.79 

6540 

1795 . 77 

6550 

1792 .42 

2100 

6510 

1996.30 

6520 

1994.87 

6530 

1996.97 

6540 

1998.44 

6550 

1994.96 
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TILTED  IONOSPHERE 

Table  3.25:  The  Effect  of  Initial  Estimate  of 

Critical  Frequency  (fQ)  Upon  Inversion. 

Theoretical  Grp.  Initial  Est.  of  Computed  Grnd. 


Path  (km) 

f 

c 

Range  (km) 

1700 

6 . 75 

1586.41 

7.00 

1586 . 89 

7.25 

1586.57 

7.50 

1587.24 

7.75 

1586 . 37 

1900 

6.75 

1795.11 

7.00 

1796.12 

7.25 

1794 . 79 

7.50 

1796.61 

7.75 

1795.26 

2100 

6 . 75 

1997.62 

7.00 

1999.02 

7.25 

1996.97 

7.50 

1999.62 

7.75 

1997.90 

1 
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TILTED  IONOSPHERE 

Table  3.26:  The  Effect  of  Initial  Estimate  of  Upon 

Inversion  of  Group  Path  into  Ground  Range. 
Program  was  allowed  to  go  40  Iterations 


Theoretical  Grp. 
Path  (km) 

Initial 

r (km) 
m 

Est.  of 

y (km) 
m 

Computed  Grnd 
Range  (km) 

1700 

6590 

60 

1578.35 

6600 

70 

1582.48 

6610 

80 

15  86 . 57 

6620 

90 

1586 .67 

6630 

100 

1590.76 

1900 

6590 

60 

1786 . 76 

6600 

70 

1790.84 

6610 

80 

1794 . 79 

6620 

90 

1798.14 

6630 

100 

1801.60 

2100 

6590 

60 

1988.81 

6600 

70 

1992.96 

6610 

80 

1996.97 

6620 

90 

2001.28 

6630 

100 

2005.76 

TILTED  IONOSPHERE 

Table  3.27:  The  Effect  of  Varying  the  Layer  Semi thickness  Upon 

the  Inversion  of  Group  Path  to  Ground  Range. 


Theoretical  Grp. 
Path  (km) 

1700 


1900 


2100 


Initial  Est. 

of 

rm  (km) 

-^m 

6600 

70 

6605 

75 

6610 

80 

6615 

85 

6620 

90 

6600 

70 

6605 

75 

6010 

80 

6615 

85 

6620 

90 

6600 

70 

6605 

75 

6610 

80 

6615 

85 

6620 

90 

Computed  Grnd. 
Range  (km) 

1582.48 

1582 .13 
1586.57 

1587.62 
1588.67 

1790 . 84 

1790.62 
1794.79 
1797.08 

1798.14 

1992.96 
1992 . 82 

1996.97 
2000 . 16 
2001.28 
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is  also  reduced,  as  shown  in  Table  3.27.  In  order  to  consider 
the  effect  of  allowing  the  program  to  perform  a greater  number 
of  iterations,  we  have  repeated  the  calculation  of  Table  3.26 
by  doubling  the  number  of  iterations  which  the  program  uses  in 
computing  a final  set  of  QPP.  The  result  is  shown  in  Table  3.28. 
Although  this  increase  in  the  number  of  iterations  generally 
improves  the  result,  this  is  not  always  the  case,  as  can  be  seen 
in  Table  3.29.  The  significant  quantity,  a,  denotes  the  standard 
deviation  of  the  ground  range  values  from  their  respective  means. 

For  the  smaller  values  of  simulated  group  path,  increased  itera- 
tions produce  a smaller  standard  deviation.  For  the  largest  value 
of  group  path  (2100  km)  the  standard  deviation  is  actually  larger 
in  the  case  of  80  iterations,  as  opposed  to  the  case  of  40  iterations. 
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TILTED 

IONOSPHERE 

Table  3.28: 

The  Effect  of  Initial  Estimate  of  r Upon 

m 

Inversion  of  Group  Path  into  Ground  Range 
Program  was  allowed  to  go  80  Iterations 
in  Fitting  QPP. 

Theoretical  Grp. 
Path  (km) 

Initial 

r (km) 
m 

Est.  of 

ym  (km) 
m 

Computed  Grnd. 
Range  (km) 

1700 

6590 

60 

1580.18 

6600 

70 

1582 . 72 

6610 

80 

1586.97 

6620 

90 

1587.40 

6630 

100 

1588. 40 

1900 

6590 

60 

1778.40 

6600 

70 

1781.92 

6610 

80 

1788.25 

6620 

90 

1789.21 

6630 

100 

1790.48 

2100 

6590 

60 

1973. 34 

6600 

70 

1977.90 

6610 

80 

1986.09 

6620 

90 

1987.49 

66  30 

100 

1989.10 
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TILTED  IONOSPHERE 

Table  3.29:  Variance  Resulting  from  Different  Values  of 

r as  Affected  by  Number  of  Iterations  (IT) . 
m 

Theoretical  Grp.  IT  Dcr 

Path  (km) 


1700 

40 

1585.37 

4 . 45 

80 

1585.13 

3.15 

1900 

40 

1794.43 

5.23 

80 

1785.65 

4 . 39 

2100 

40 

1997.16 

5.97 

80 

1982.78 

6.10 

k -v 
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3.5  General  Consideration  of  the  Inversion  Problem 

In  the  past  two  sections  of  this  chapter  we  have  presented 
several  techniques  that  can  be  applied  to  deduce  the  ionospheric 
structure  by  using  point-to-point  oblique  io^ograms  (section  3.3) 
or  backscatter  leading  edges  (section  3.4).  In  both  cases  our 
computations  have  been  carried  out  for  quasi-parabolic  profiles. 
Recently  an  inversion  technique  developed  in  connection  with  geo- 
physical problems  has  shown  great  promise.  This  technique,  known 
as  Backus-Gilbert  technique,  can  be  adapted  to  inverting  oblique 
ionograms  of  both  kinds.  The  problem  has  been  formulated  in  a 
paper  "A  Method  for  Inverting  Oblique  Sounding  Data  in  the  Ion- 
osphere" which  is  attached  as  Appendix  4.  Initial  application 
to  the  vertical  incidence  data  demonstrates  its  rapid  convergence. 
The  technique  has  yet  to  be  applied  to  inverting  oblique  iono- 
grams. It  is  desirable  to  carry  out  many  computations  in  order 
to  understand  the  capability,  the  characteristics  and  the  limita- 
tion of  this  inversion  technique.  So  far  the  problem  has  been 
formulated  for  inverting  either  the  backscatter  leading  edge  or 
the  oblique  ionogram.  In  both  cases  pherical  stratification  is 
assumed.  Details  can  be  found  in  Appendix  4. 
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3.6  Conclusions 


In  conclusion,  we  have  in  this  section  discussed  our  efforts 
to  devise  techniques  for  the  determination  of  ionospheric  struc- 
ture from  oblique  radio  propagation  data.  Particular  attention 
was  devoted  to  the  problem  of  obtaining  the  horizontal  gradients. 

The  major  findings  of  the  effort  are:  a)  point-to-point  oblique 
ionograms,  by  themselves,  are  not  very  useful  for  obtaining  the 
horizontal  gradients,  while  b)  backscatter  leading  edge  data  are 
capable  of  providing  information  concerning  the  horizontal  gradients. 

We  have  provided  several  examples  of  inversion  of  the  oblique 
radio  propagation  data  and  even  investigated  the  application  of 
the  backscatter  technique.  We  have  demonstrated  that  despite 
the  fact  that  the  inversion  technique  does  not  necessarily  yield 
a unique  solution  for  the  ionospheric  structure,  this  uncertainty 
is  not  an  important  factor  in  the  application. 
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4.  Recommendations  for  Future  Work 

Based  on  the  efforts  of  our  work  reported  in  sections  2 
and  3 and  the  conclusions  reached  therein,  we  make  the  following 
recommendations  for  continuing  work  on  this  project: 

1.  Since  the  backscatter  data  and  the  corresponding  inversion 
results  involve  a grid  of  points  in  the  azimuth-range  space,  it 
is  desirable  that  the  electron  density  model  employed  in  the 
three-dimensional  ray  tracing  be  specified  in  the  azimuth-range 
space  rather  than  in  the  latitude-longitude  space. 

2.  The  basic  inversion  techniques  of  backscatter  leading  edge 
data  need  to  be  tested  by  employing  simulated  data  for  progressively 
complicated  ionospheres.  In  this  connection,  it  is  necessary 

that  the  simulated  data  points  be  closely  spaced  in  range,  in  view 
of  the  fact  that  successive  data  points  correspond  to  successively 
increasing  values  of  range  away  from  the  transmitter.  Hence  for 
the  derivation  of  local  horizontal  gradients,  it  is  necessary  to 
consider  sets  of  data  points,  closely  spaced  in  range,  and  hence 
in  frequency. 

3.  In  addition  to  the  inversion  of  backscatter  leading  edge  for 
ionospheric  structure,  further  tests  are  necessary  with  regard  to 
the  application  of  the  inversion  results  for  computing  the  ranges 
for  non-minimum  group  paths.  In  this  connection,  it  is  necessary 
to  have  simulated  ray  tracing  data  for  non-minimum  group  path  rays 
for  the  same  model  ionospheres  for  which  the  backscatter  leading 
edges  are  simulated. 

4.  The  dependence  of  the  inversion  result  upon  the  choice  of 
the  initial  set  of  layer  parameters  should  be  further  investigated 
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with  a view  to  determining  how  in  actual  practice,  the  initial 
set  of  layer  parameters  must  be  chosen  in  order  to  minimize  the 
uncertainty  of  the  inversion  technique. 

5.  The  present  scheme  for  homing  the  ray  after  one  reflection 
from  the  ionosphere  is  very  successful  as  demonstrated  by  several 
examples  in  this  report.  However,  in  extending  the  present  scheme 
to  multi-hop  modes  some  difficulties  are  encountered.  Some  of 
these  difficulties  have  been  identified:  the  coarseness  of  the 
grid  points  at  which  the  electron  density  is  given,  and  inflex- 
ibility in  the  computer  program  to  handle  mixed  and  complex  modes. 
To  remove  these  difficulties  requires  further  refinement  of  the 
ray  tracing  program. 

6.  Preliminary  analysis  shows  promise  in  applying  the  Backus- 
Gilbert  technique  to  inversion  of  the  oblique  propagation  data. 

This  technique  has  been  applied  to  the  vertical  ionogram  and 
very  rapid  convergence  is  obtained.  Even  though  the  mathematical 
formulation  for  the  inversion  of  oblique  data  has  been  carried 
out,  its  application  to  data  has  yet  to  be  made.  One  possi- 
bility is  to  choose  a model  profile  (such  as  piece-wise  parabolic 
profile)  for  which  analytic  expressions  are  available  so  as  to 
reduce  the  computation  time.  Another  area  of  interest  is  to 
generalize  the  Backus-Gilbert  technique  by  including  the  horizontal 
gradient.  In  this  latter  case  the  Bouguer's  rule  is  no  longer 
valid,  one  must  reformulate  the  problem  anew. 
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APPENDIX  1 


The  computer  programs  for  ray  homing  are  listed  in  the  following 
pages.  These  programs  are  discussed  in  section  2.5. 


oon)  no  ui  ooo 
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C DECIDES  WHICH  PAIS  ABE  TC  HE  SPACED  AND  SETS  THE  IN  C032 

CONDITIONS  FOB  EACH  FAT  BIPOPE  CALLING  TRACE,  WHICH  CALCULATES  THE  RAY  0003 
DIMENSION  TYPE  (3)  ,111^2  (3)  0004 

DIMENSION  MCDEI T (4) 

COMMON  /CCNSI/  E I .PIT  2, PI D 2 , D EG  £ , R A I , K , C , LCG T E N O005 

COMMON  /FK/  N.STEE, MCDE.E1MAX.E 1MIN.E2MAX, E2f!IN,FACT, PSTART  0C06 

CCMMCN  /FIN/  N2, MUX, EN2  (9)  .ECLAF  (4)  .SPACE, COIL, FIELD  DC07 

COMMON  /PLG/  NTYP,  R NE W W , P N E W W , R A YBSG  , R A Y S E T , LINES, I HOP  , N 0 1 E ST , AP HI  0008 

CCMMCN  /MODELS/  MODEL  (4)  0009 

CCMMCN  /XX/  X,PXPE,PXPTH,PX°PH,FXPT,HMAX  0010 

COMMON  F (12)  .T.STF.CRDT  (12)  /WW/  ID  ( 1 0)  , KC  , K (400)  CO  1 1 

COMMON  / V P R N 1 / IN  (2  50)  ,VNPR  (280)  .VNPTH  (250)  ,VNEPH(25  0)  1 1 KV  1 

CCMMCN  /VPRN2/  V P A NG E (25 0 ) , V HT ( 250)  1 1 KV  2 

CCMMCN  /NDOFT/  NPR I NT , KC FT , MF RT  11  KV  3 

COMMON  /EENSC/  DU  M2  (683)  , ND DM  (2 ) , J P L AG, NSOL , DBHIN  (2 1 ) , JTEHP  OOFI  1 

FOUL  VALENCE  (F , W (3)  ) » (PLCN  , W (1  3 ) ) , (LCN  , K ( 1 4 ) ) , (PL  AT  , W ( 15)  ) , 0012 

1 (LAT.W  (16)  ) , (EPTA.W  (17) ) , (AZ1.W  (18) ) , (EABTHF.W  (19) ) , 0013 

2 (XMTRH.W  (2C)  ) , (I  NTYP  ,K  (41)),  (MAXERF,W(42)),  (ERA  TIC,  W (4  3)  ) , CO  14 

3 (STEP1, h (44) ) , (STPMAX.W  (4 5 ) ) , ( STP M I N , W (4 6) ) , (FACTR, W (4  7) ) , 0015 

4 (RA Y,K  (6  7) ) , (MAXSTF.W  (93) ) , (SKIF.tf  (180) ) , (HCP.W  (254) ) , CO  16 

c (EL BEG ,W  (255) ) , (EL END, W (2  56) ) , (ELSTEP.W  (257) ) , (FBEG, W (2  5 8) ) , 0017 

6 (FIND.fc  (259) ) , (FSTEF  ,W  (26 C) ) , ( AZ3EG  ,W  ( 263) ),(AZEND,W(264)),  0018 

7 (AZSTEF.W  (265) ) , (PLT.W  (272) ) , (CNLY.H  (279) ) , (WN,W  (299) ) 0019 

EQUIVALENCE  (EC , W (375) ) , ( A L PH A , W (376 ) ) , (THO  , W ( 377) ) , (PEO , W ( 376) ) UOFI  2 
PEAL  LCGTEN, K,N2, MUX.MAXSTE  ,INTYP,MAXERR,MU,ION,LAT  0020 

DATA  MODELS, KCLL1,KCI12/2*1H  ,4HDIFC,1H  ,4hWITH,4H  NC/ 

DATA  TYFE,TYPF2/4HX-CR, 4HNC  F , 4HORD I ,4H N AR Y , 2 * 1 H / 

DATA  MCFEW/0/  UOFI  2A 

SECCNC  ( A ) = 1 C . C 

CAII  Q9EXCN  C023 

N D AT  E= I D A TE  (0)  C024 

SECCND=KIOCK(C) * . CO  1 0025 


TIME=SECCND  (A) 

1 1 N F S = C 
NPAGE=0 
DC  5 1=1,400 
W (I) =0.C 
FIELD=1 .C 
COLL=C . C 
KOL 1 = KC 1 1 2 
NDATE=C 

IF (CCLI. NE. 0. 0)  KC  L 1=  ROLL  1 


CCNSTANTS  C029 

PI=3.  1415926526  0030 

FIT2=2.*EI  0031 

FID2=FI/2.  0032 

DEG  S= 1 8C . /PI  0033 

FAC=PI/1E0.  C034 

K=eC.6E-6  0035 

C=2 . 997925E5  0036 

LCGTEN  = AIOG  (1C. ) 

DO  2 1=1,4 

MODEL  (I ) =MC t ELT  (I) 

C038 

INITIALIZE  SCHE  VARIABLES  IN  THE  V ABF  A Y C039 

FLCN=0.  C040 

FL»T=PID2  0041 

FABTHF=€270.  0042 

INT  YP  = 3 . 0043 


1 


on  non  on 
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HAXFFB=1  . E- 8 
ERATI0=5C  . 

ST  E E 1=  1 . 
STPHAX=1C0. 
STPEIN=1.E-4 
FACTR=0. 5 
HAXSTP=1C0C. 
HCP=  1 . 

PLT  = 0 . 

V* 

1 CALI  READ  W 

C 

HPRT  = C 

c 

F=0 .0 
BET  A=0 . C 
AZ  1 = 0 . 0 


IF  (WN.IT.7.)  HK  = 7.  0056 

IF  (WN.GT.12.)  fc  N = 1 5 . 0057 

IF  (SKIP.EQ.O.)  SKIE=HAXSTF  C058 

NTYF=2.+EIELD*RAY+0.C1  0059 

PRINT  7,  ID,  KDATE,HOCEL,TYPF  (NTYP)  ,TYPB2  (NT  YI ) , KOLL 
7 FORNAT (1K1, 1 0 A 4 , 2CX , 1 8/5X , 4 (IX, A 4) ,2X,2A4, • COLLISIONS'/) 

PRINT  8 0C63 

8 FCPHAT  (65H  INITIAL  VAIOES  FOR  THE  ft  AEFAY  --  ALL  ANGLES  IN  RADIAN  0064 

IS,  CNLY  KCNZEFC  VALDES  PRINTED/)  0065 

DO  1C  1=1,400  C066 

IF  (H(I).NE.O.)  FFIKT  9,  I,N(I)  0067 

9 FORHAT  (14, E19. 11)  C068 

10  CONTINUE  0069 

C LET  SOERCOTINES  PRINTR  AND  RAYPLT  EACH  THERE  IS  A NEH  U ARRAY  3070 

PNISH=1.C 
RNESN=1.C 

C 072 

INITIALIZE  PAP  A HETFRS  FOE  INTEGRA1ICN  SDEFCOTINE  FKAH  0073 

N=BN*0.C1  0074 

MODE=INTYP  *0.01 

STB  F=ST  E P 1 0076 

STP=STEF  1 1/2F/71 

E1BAX=BAXEBR  C077 

E1BIN=BAXERR/EPATIO  C078 

E2HAX=S1FBAX  0079 

E2BIN  = ST  FBIN  0080 

FACT=PACTR  C081 

0082 

DETEPBINE  TP  A BSHITIER  LCCATICN  IN  CC P PUT ATIC N AL  COORDINATE  SYST  0083 
(GECBAGN  ETIC  CCOEDINAIES  IF  DIPOLE  FIELD  IS  USED)  0084 

RC=EARTBF*XflTFH  0085 

SP=SIN(PIAT)  C086 

CP=SIN  (FID2-PIAT)  0087 

SINDPH=-S1N  (LCN-ELCN)  C088 

COSDPH=SIN  (PIC2- (10N-PLCN) ) 0089 

SL-SI 8 (I  AT)  CC90 

CL-SIN  (PID2-LAT)  0091 

ALPH A = ATAN2  (- SI SDFH*CP, -COSDPH*C P*S l *SP *CL)  00  92 

TH0=ARCCS  (CCSIEE*CP*Ct-*SP*£L) 

PH0=ATAN2 (SINIPE*CL,COSDPH*SPBCl-CP*£L)  0094 

THIS  PORTION  IS  ADDED  BOR  THE  HCHING  BEATDFE.  IT  READS  THE  DENSITYOOFI  3 
PROFIIE  FRCB  ELECTX  UOFI  4 

IF <H  (38C) .EC.C.O)  GC  TO  555  UOFI  5 

IF  (HOPES. EQ. 1)  GC  TO  555  UOFI  5A 


0044 

C045 

CC46 

0047 

0048 

0049 
COSO 

0051 

0052 
C 053 
0054 

KV  0 54 
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HCBEW^I  IJCF1  SB 

CALI  ELECTX  UCFI  5C 

C 0095 

C LCC I ON  FREQUENCY,  AZIMUTH  ANGIE,  AM  ELEVATION  ANGLE  0096 

555  NFFEQ=1  'JO FI  5D 

IF  (FSTEF.NE.O.)  NFF  EQ=  (F  FK  C -F  B I G) /F  ST  1 1 -*  1 . 5 C098 

N AZ  = 1 0099 

IP  (AZSTIP. NF.C.)  N A 7=  (AZFNE*AZEEG)/AZS7EP+1.5  0100 

N BP 1 A = 1 0101 

IF  (ELS1IP.NE.0.)  NEETA=(ELENE-ELBEG)/ELETEF-*1.5  0102 

EC  50  N E=  1,  NFREQ  0103 

F=FBEG ♦ (NF-1) *E  ST  EP  0104 

IF  (U  ( 3 0 C ) . 2C. 0. C)  GC  1C  5C  OCFI  6 

CAII  PC  W E UOFI  1 

55  DO  45  J=  1 , N A Z UCFI  9 

IF(W  (38C) .NE.O.C)  GC  TO  60  UOFI  10 

A7.1  = A7EEG+ (J- 1)  PAZSTFP  0106 

60  AZ A = AZ 1 * E5G  S UCFI  11 

GAMMA=FI-AZ1*ALEHA  0108 

SGAF.HA=SIN  (GAMMA)  0109 

CGAMMA=SIN  (PID2-GA1MA)  0110 

DO  40  1= 1 , NB  ET  A 0111 

IF(H  (380)  .NE. 3,0)  GC  TO  70  UCFI  12 

EETA=ELEEG+  (1-1)  *USTIP  0112 

70  CEET A^SIN (PID2-EETA)  UCFI  13 

C T HI  $ IS  USED  FOR  THE  HOHTNG  FEATURE  CNIY  UOFI  14 

IF(fc  ( 380)  .EC.O.C)  GC  TC  32  UCFI  15 

CALI  ADUCST  UOFI  16 

MPFT=  0 UCFI  17 

GC  TO  50  UOFI  18 

32  R (1 ) = RC  UCFI  19 

P (2)  =TF. 0 0115 

R ( 3 ) = P F.  C 01)6 

B (4) =S1N  (EET  A)  3117 

R (5) =CEETA*CGAMMA  0118 

P (6)  =CEE1A*SGAF.  FA  0119 

T=0.  C 1 2 C 

BSTART=1.  0121 

CALI  BIN  LEX  0122 

EL=EETA*IEGS  0123 

IF  (I. RE. 1. AND. NIAGE.LT. 3. ANt. LINES. IE. 17)  GC  TC  18  0124 

NPAGE=C 
1 1 N E S = C 

PRINT  7,  ID  (1)  ,ID,NCATE,BCCFI,TYFF  (NTYP) , T YE  E 2 (NTYP)  , KCLL  0126 

PRINT  17,  F , A ZA  C 127 

17  PORHAT  ( 18X, 1 1HFRFQDENCY  »,F12.€,37H  H HZ  , AZIMUTH  ANGLL  CF  TBANSHI  0128 

1SSICN  = ,E12.6,*IF  CEG ) 0129 

18  NPAGE=KE#GF+1  0130 

PRINT  IS,  EL  0131 

19  FORMAT  (/21X,  33HFIEVATICN  ANGLE  OF  TRANSMISSION  =,F12.6,4H  DEG/)  0132 

IF  (N2.G1.0.)  GC  TO  25  0133 

CALI  EIECTX  0134 

FN=SIGN (SORT  (ABS  (S) ) *F , X ) 0135 

PRINT  21,  FN  0136 

21  FORMAT  (58H0TFANSFI1TIB  IN  FVANF  SCENT  REGION,  TRANSMISSION  IHECSSI  0137 

1 BLE/20ECUASBA  FREQUENCY  = ,E17.10)  C 1 38 

GC  TO  44  0139 

25  MU=SCBT  (N  2)  C140 

R (4 ) = MU  * E (4)  0141 

R (5) =HU*F  (5)  0142 

R (6) =HU*  F (6)  0143 


i 
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DO  28  NN*7,N 
28  R (NN)  =C  . 

CA1I  TRACI 

SFCCNC-KICCK  (3) *.C01 

CSEC=TIRI 

TIBI  = SECCRD  (A) 

CIFF=TIEF-OSEC 
FRINT  2C  , CIFF 

3C  FOPFAT  (34X,26HTHIS  SAT  CALCULATION  TCCK  ,?8.3,UH  SFC  ) 


0150 

150  KV  1 


N DPR  IN  T IS  THE  CFTICN  FCR  FEINTING  ELEC.  DENSITY  AND  IERIVA1IVES 
IF (NPRINT. HQ. 0)  GC  TC  370 


PRINT  EIFCTRCN  TENSITY  PROFILE  AND  THE  I EFIVATI VES  151  KV  1 

USING  A E PL  FTC  N - HART9FI  FCRBULA  151  KV  2 

FRINT  221  151  KV  5 

331  FORRAT  ( 1 H 1 , <48R  FLFCTRC  N IFNSITY  FFCFIIF  ARD  ITS  DERIVATIVES  , 151  KV  7 

1 UCH  COURTESY  ARCCN  CORF.  K.VANCURI  //  151  KV  8 

2 60H  N = C * X,  C = 12409*F**2  F IN  KH2,  N = EL.  FEE  CC  , 151  KV  9 

3 40 H AFEIFTCN-HARTRFI  FOEBULA  / 151  KV10 

4 60H  DN/IR  = C * FXER  IN  FL/CC/KB  / 151  KV11 

5 60H  DN/ETH  = C ♦ PXFTH  * FAE  IN  EL/CC/IFG  / 1 c 1 KV12 

6 6 OE  DK/CPH  = C * PXFFH  ♦ RAD  IN  EL/CC/CFG  / 151  KV13 

7 6X,5HFANGF,5X,6HHFIGHT,1CX,1HN,9X,5HDN/DR,7X,6HDN/CTH,7X,  151  KV14 

8 6HDN/EPH, 7X,4HSTEP/  9X  , 2 H K B , 8 X , 2 HK  B , 6 X , 5 E F L/CC  /)  151  K.V1C 

DC  365  EJ  = 1, FPFT  151  KV25 

FRINT  3 45,  VRAKGE (BJ)  , VHT  <EJ)  , 1 c 1 KV26 

2 VN  (HJ) , VNPR  (SJ)  ,VNFTH  (BJ)  , VNPPH  (MJ)  , B J 151  KV26 

345  FOPBAT  (IX, FIG. 4,2X,F10.4,4  ( 2X, F 1 1 . 4) , 2X , 1 5 ) 1C1  KV27 

365  CONT INC  F 151  KV28 

300  CONTINtt 

HPET  = 0 151  KV29 


IF  (NUTEST. EQ. 1. AKD.CNIY. NF . 0. . ARD. IEOP  . BQ.  1)  GC  TC  44 
4C  CONTINUE 

44  IF  (FIT. RE. C.)  CAIL  FKDPLT 

45  CONTINUE 
50  CONTINUE 

GO  TO  1 
END 


1 
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SUEF0UT1NE  TRACE  C136 

HHFNSICN  ROLE  (12) , ERCLC < 12)  0187 

CCEBON  / F K/  N,  SIFT,  PC DE  , E 1 H A X , E 1 HI  N , E2  H A X , E 2 HI  N , FACT,  ESTART  0188 

CCFPCN  /FIN/  N2,PN2(8) , IFCL AR, RrOLAR, SPACE, CCII, FIELD  0189 

COUPON  /TRAC/  GR  CU  N E , FF  0 I CE  , T H R F E , H I ND I S , U N I E K 0190 

CCHHCN  /ELC,/  NTYr.ENE  NW.FNEkN,  R A YE  EG  ,R  A Y S FT  , LINES,  IHOP,  NOTEST,  APHT  0191 

CCHHCN  /XX/  X,PXPF,FXPTH,FXrPH, FXFT,HHAX  0192 

CCHHCN/EIAGS/IFIAC 

CCHHCN  F (12) ,T,STP,EPET (12)  /MM/  I D ( 1 0)  ,M 0 , M (400)  0193 

EOUIVAIFNCE  (EARTBR.M  (19)  ) , (HS,Vi  (40)  ) , (RAXS1F#W  (93)  ) , ( SKIP , W ( 1 80 ) ) Cl  94 
1 , <HCP,W  (254)  ) , (PLl.li  (27  2)  ) 0195 

EQUIVALENCE  (C N I Y ,K  ( 37 1 ) ) , ( STE P 1 , H ( 4 4)  ) UOPI  1 

RE  A I HAXSTP  0196 

CCHFLEX  N2,TFCLAR,FFCLAR  0197 

LOGICAL  SPACE , B C H E, K A SNT , F A S SE E , UNDEGE , G BO  UN E , FERIGE , T HER E , 0198 

1 HINDIS, UNDER  0199 

CNIY=C.C  UCFI  2 

STEI=STEF1  UCFI  3 

STP=ST  EE  1 OOFI  4 

NHCF  = HCF  + 0.  C 1 0200 

HAX=HAXSTF*C. 01  C201 

NSKIF=£HF*C.C1  0202 

FSTAFT=1.  C 203 

CALI  BASEL  C204 

IF (IFLAG.SE. 0)  GO  TC  50 

H=F (1 ) -EARTHR  0205 

BCHF=DFEY (1) * (H-HS) .GE.O.  0206 

PAYEE G=1.  0207 

PAYEE T*C.  0208 

CALL  PFINTR  (6HXMTR  ) 0209 

IF  (PLT.SE.O.)  CAIL  EAYFLT  0210 

F AY  EEG=  C . 02H 

0212 

ICC  E CN  SUFEER  CE  HCFS  0213 

DO  45  JBOF=1,NBCP 
IHCF=JHCF 

RAY£ET=C.  0215 

NUTEST=C  C216 

APBT=B£  0217 

TFC1 A R=  FI OL  AR  C218 

0219 

LCCF  CN  HAXIHUP  NOHEEF  OF  STEPS  PER  BCF  0220 

DO  28  J1 1 , H A X 0221 

IF (ABS (E-BS) .GT.AES (APHT-BS) ) APH1=H  0222 

IF  (.NOT. SPACE)  GC  TO  12  0223 

CALI  REACH  0224 

IF (IFLAG.NF.O)  GC  TC  50 

RSTART= 1 . 0225 

IF  (IHCFYJ. EQ. 1)  TPOL  AR  = FFCL  AR  0226 

IF  (GRCUKC)  GC  TO  22  0227 

IF  (PFFIGF)  CAII  FRINTR  (8HEERIGEE  ) 0228 

IF  (THEBE)  GO  TC  40  0229 

IF  (HINEIS)  GC  TC  32  0230 

IP  (PLT.SE.O.)  CAIL  RAYPLT  0231 

12  DO  13  1=1, N 0232 

ROLE (L) =F (L)  0233 

13  ERCLE (l) =DBDT (L)  0234 

TCLE=T  0235 

CALL  RKAH  0236 

IF (IFIAG.NB.O)  GC  TC  50 
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H = F ( 1)  -F.ARTHR 
KASNT=.NCT. HOME 
HCME=EFET  ( 1)  * ( H - H S)  . GF . 0. 

X= (ERET  (1) -ERCIE  (1) ) * (-"ICID) 

SNT=0. 

IF  (X.NF.O.)  S«I  = 0.,:*(B(1)-FOIE(1)+C.5»X)**:/AESVX) 

UNEFGD=H.IT. 0. .CR.DRET (1)  .GT.C.  .AND.CRCLD(I)  .LT.O. . A ND  . SMT . GT . H 
PASSED=(H-HS)  * (EOID  (l)-FAFTHF-HS) .LT.O. 

IF  (PASSED. AND.  ( . NOT . DN D EG C . 0 5 . H S . G I . C . ) ) GC  TC  35 
IF  (HS.FQ.ROLE  ( 1)  -E SRTHR . A N E . ERCL D (1)  *EPET  (1 ) . IT.O.  . AM.HCKE) 

1 GC  TO  3 9 

IF  (HCKE.  AND.  RASNI.  AND.  (.NCT.CNIRGD.CR.  FS.C-T  . 3. ) ) GO  TC  17 
IF  (UNERC-D)  GC  TO  18 
GC  TC  23 

FAY  BAY  HAVE  MADE  A CI0SE5T  AEIFCACH 

17  IE  (SMI.GT. ABS  (H-ES) ) GO  TC  36 
N UT  F ST  = 4 

IF  <R  (5)  .NE.  0.  . CR  .R  (6)  . NF  . 0.  ) CALL  GFAZE(HS) 

IE  (UNEEF)  GO  TC  19 
IF  (NOTEST. EC. 0.)  GC  TO  36 
GO  TO  32 

RAY  WENT  ONDERGRCUNE 

18  IF  (ERET  (1)  .IT.C. ) GC  TC  21 

19  UNDFF=. FALSE. 

CAII  PRINTR  (FHQNEERGRE) 

EO  20  L=1,N 
R (L)=RCLE  (L) 

20  EPDT  (I) =IFCLD  (I) 

T=TCLE 

CALI  RINIEX 

IF (IFLAG. NE. 0)  GO  TC  50 

21  CALI  EACH  UP(0.) 

22  R (1)=IAFTHR 
R(«)  = AES(R(4)) 

DFDT  (1)  = ABS  (DRET  ( 1)  ) 

PSTART=1. 

CALL  PF I NTR  (8FGFNE  FFF) 

IP  (HS.FQ.O.)  GC  TO  91 
H=0. 

GO  TC  25 

23  IF  (ERCIE(I) .LT.0..ANE.DEDT(1) .GT.O.)  CALL  F F I NT R ( 8H P F F IGEE  ) 

IP  (EPC  IE  ( 1)  .GT.0..ANE.EFET  (1)  .LI. 3.)  CALI  P F I NT R ( 8H A PCGE E ) 

IF  (DFCLE  (2) *ERDT  (2)  .LT.O.)  CALI  PRIKTF  (8HMA.  X LAT  ) 

IF  (DPCIE  (3)  *DR  ET  (3) . LT  . C . ) CALL  PRINTR  (8HM  A X LONG) 

DC  2 4 1=8,6 

IF  (ROLE  (I) *R  (I)  .LT.O.)  CALL  PBINTE  (6HPAVF  REV) 

24  CCNTINCE 

25  IF  (PLT.NE.O.)  CALL  RAYPLT 
IF(IFLAG.HE.O)  GC  TC  50 

IF  (F.GT.HNAX. AND. H.GT.HS.ANE.DFET(I). GT.O.)  GO  TO  30 
IF  (BCD  ( J, N SK IE)  . EQ.  C)  CAIL  PRINTR  (£H  ) 

28  CONTINUE 

EXCEEDED  NAXIMUN  NUflEFR  OF  STEFS 
NOTEST=2 
FAY  SBT= 1 . 

CALL  PF INTR ( 8RBAX  STEP) 

RETDRN 


» v N 


n n no  on 


. > . 


. >* 


- ■ ■ 
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FAY  FENETFATfE 

C 296 
0297 

30 

NUTESI=1 

C 298 

EAYSF1=1. 

0299 

CNLY=1.C 

UOFI  5 

CALI  E F I NT  R (8HEINETFAT) 

0300 

FFTERN 

C301 

RAY  HADE  A CIOSIST  AFEFCACH 

0302 
C 303 

32 

NUTFST—4 

0304 

ERET  ( 1)  =C  . 

C 305 

PAY  S ET=  1 . 

C 306 

CALL  FRINLR  (8HM3N  EIST) 

0307 

IF  (FIT.NE.O.)  CALL  FAYFLT 

0308 

IF  (IHCF.CE. NHCE)  GC  TC  45 

0309 

IHCE=IHCF+1 

0310 

CALL  FF1NTR  (8HHIN  EIST) 

C31 1 

GO  10  45 

C 31 2 

FAY  CROSSEE  FECEIVFR  FRIGHT 

0313 

0314 

35 

IP  (HCKI)  GO  IC  35 

C 3 1 5 

36 

CCNTINCE 

C 3 1 6 

CALL  FFINTF  (80  FCVRR1) 

C 3 1 7 

EC  37  1=1,  N 

0318 

R (L)=FCIE  (L) 

C319 

37 

EPE1  (L) =1  FOIE <L) 

C 320 

T=T  C I E 

0321 

CALL  RIMEX 

C 322 

RSTAET=1. 

0323 

39 

CALL  EACK  OF  (HS) 

0324 

R (1)=SARTHR*HS 

C 325 

4 1 

FAYSET=1. 

0326 

CALL  EFIMR  (8RFCVF  ) 

C 3 27 

IF  (FL1.SE.0.)  CAIL  FAYFL1 

3328 

1*5 

HCHF=  .TFCE. 

0329 

RF1CRN 

C 3 30 

50 

NUTEST= 1 

FYIES1=1.0 

CALL  FBINTR  (8H  COT  ICS  ) 

I FL  AG  = C 
RETDEN 
INE 

0331 

4S&*. 


SUBROUTINE  BACK  UP(HS)  0332 

ElflENSICR  NWOFE1  (2)  ,NBOBE2  (2)  , NSiCRD  (2) 

CCKRCN  / F K/  HR,  STEP,  ECEE,  ElHAK,  E1SIN  , E2 R AX , E 2MIN , F ACT , BST A RT  C333 

CCKMON  /TFAC/  GE  C UN  E , FF  F I OF  , T E2  FE  , H I NDI  £ , U N E E P 0334 

COBBCN  /Ft G/  RTTF,FNE8W,FNFfc1i, 5AYBEG,HAYSET, LINES, IHOP,NUTEST,APHT  0335 
CORHON  F (12)  , 1,  SIP,  EBDT  (12)  /kV/  IE  (10)  ,H0,ti  ( 4 C C ) 0336 

EQUIVALENCE  ( E A F I HE  , V ( 1 9 ) ) , ( I NT Y F , W (4  1 ) ) , ( E 1 1 P 1 , W (44 ) ) 0337 

SEAL  IN  1 Y F 0338 

LOG I C A I CNDEa  0339 

CATA.  NWCRD1, NH C F C 2/4 H P A C K , 4 E U F ,4HGFA2,4HF  / 

SI P £=  £ I P 

HWOFD (1)=NHCRE1  (1) 

NWCFD  (2)  = NW  C F E 1 (2) 

DO  1 1=1,10  0340 

IF  (DPET  (1)  .EC.C.)  GC  TO  5 0341 

STBF=-  (F  (1)  -EAF1HF-FS)  / OF El  (1)  0 342 

STP  = SIGH  (AHIHl  (AES  (SIP)  ,ABS(STEF) ) ,£TEP) 

IF  (ABS  (F  (1) -EAFTBF-RS)  .LI..  EE-4.  ANE.SIEF.il.  1.)  GC  TC  5 0344 

C CAII  EEINTF  (8BECEJNG  ) 0 345 

SCDE=1  0346 

CALL  BKAE  0348 

1 CCHTINCE 

C 0350 

ENTRY  GEJ2E  0351 

STFS=S1F 

NWOFD  (1) =NHOBC2  (1) 

N HO  ED  (2) =NWORE2  (2) 

DO  2 1=1,10  0352 

IF  (DFEI  (4)  .EC.C.)  GO  TO  5 0353 

STEP=-E  (4)/DREI  (4)  0354 

STP=SIGN  (AWIN  1 (AES  (SIP)  ,AES  (STEP) ) ,£TEF) 

IF  (ABS  (F  (4) ) . LE .1  .E-6.ANE.STEF.il.  1 .)  GC  TC  5 0356 

C CALL  FFINTF  (EH EC BING  ) 0357 

ROLE  = E (1)  0358 

M C D F = 1 0359 

CALL  FKAB  0361 

IF  (R  (1) -FAFTHF.LI.C.)  GC  TO  4 0363 

IF  ( (F  (1) -EARTHE-KS) * (ROLE- E AFTER-HS ) . LT.C.  ) GC  TO  3 0364 

2 CONTINUE  0365 

GC  TC  ! 0366 

3 NUTEST=0  0367 

GO  TO  5 0368 

4 UNDEF=.1EUE.  0369 

5 BODE=INTYE+C.C1  0370 

STEF=STFP  1 0371 

£TF=STPS 

HST  AFT=  1 . 0 

CALL  PEI  MR  (NHCFE) 

EETUFN  0372 

ENE  0373 


SUEF.OUTINE  RKAB  0888 

C N U HE  F 1C  A l INTEGRA  TIC  N CF  El FF EBENTIAL  FCUATIONS  0889 

CCBBCN/FIAGS/IIIAC 

CCHBCN  /FK/  N N , £ FAC  E , NOD  E , F 1 HA  X , E 1 (1  IN,  E 2H  A X , 1 2HIN  , F ACT  , RST  ART  0890 

CCHBCN  Y (12)  ,T,STEP,CYCT  (12)  /««/  IE  ( 1 C ) , U C , U ( 400) 

EIBFNSICN  OEIY  (4,12) ,BFT  (4) ,XV (5)  , FV  (U,  12) , YU  (5,  12)  0892 

BE  AI  * 8 YD 

EQOIVAIEF.CP  (EAFTFR,M  (19)  ) , (HMIN,W  (390)  ) , (HBAX,»  (391)  ) 

CATA  XBF/1.0E-6/ 

IF  (FSTAFT. EC  • 0 . ) GC  TC  1000  0894 

11=1  0895 

B B = 1 C896 

IF  (HOEE.5Q.1)  BH=4  0897 

ALPHA=T  0898 

EPH=0.C  0899 

BET (1 ) =C  . 5 0900 

BET  (2)  =C  • 5 0901 

PET (3) =1.0  0902 

BFT ( 4) =0 . 0 0903 

R=19. 0/270.0  0905 

XV  (H  H ) = T 0906 

IF  (E1BIN.LE.C.)  f 1HTN=F  1NAX/55  . 0907 

IF  (FACT. IE. 0.)  F ACT  = 1'  . 5 0908 

CALI  HASEI  0909 

IF (BODE . NE. 1)  S1BF=SFACE  1/28/71 

IE (IFIAG.S5.0)  GO  TC  ICO 

DO  220  1=1, NN  0910 

FV (BB ,I)  = ETCT  (I)  0911 

320  YD (BB, I) =1(1)  0912 

F ST  A RT=0 . 0913 

GC  TC  1 C C 1 0914 

1000  IF  (NCEF.NE.1)  GO  TO  2000  0915 

C 0916 

C FOSGE-KOTTA  0917 


ER1=DYDT (1) 8STEI 
DR2  = HBIS-*EAFTHB-Y  (1) 

IF( (DR1.IT.DR2) .AND-  (DB2.IT.0.C))  SI IP= I F 2/C YD1 ( 1 ) *XHH 
DR3  = HBAX-*EABTHB-Y  (1) 

IF((DR1.GT.DR3)  .AND.  (ER3.GT.0.C))  ST  E P=  I R 3/ 1 Y CT  ( 1 ) +X  H H 


1001  DO  1034  K=1,4  0918 

DC  1350  1=1, BN  0919 

CELT  (K,I)=STEP*FV  (BN,  I)  0920 

Z=TD(BB,I)  0921 

1350  Y (I) =Z  + EIT  (K)  *EELY  (K,I)  0922 

T = BET  (K)  ♦STEPMV  (EB)  0923 

CALL  HASEI  0924 

IF  (IF1AG.NE.Q)  GC  TC  100 

DC  1034  1*1, Si  0925 

1034  FV (BB,I) =CYCT  (I)  C926 

DO  1039  1=1  , NN  0927 

EEL= (DELY ( 1 , 1 ) *2 . O^DFLY (2,1) ♦ 2 . C *DEI Y (3 , 1) «E E IT  (4 , 1) ) /6. 0 0 928 

1039  YD (HH+1,1)=Y0  (Hfl,I) +CEL  0929 

HH=HH+ 1 0930 

XV (BB)  = XV  (Bfl-1) + S1EF  0931 

EC  1400  1=1, NN  C932 

1400  Y (I ) = YO (BB, I)  0933 

T=YV(BF)  0934 

CALL  BASIL  0935 

IF(IFLAG.KE.O)  GC  TC  100 
IF  (HCCF.EQ.1)  GC  TC  42 


0936 


n o on  no 


CO  150  1=1, NN  0937 

150  FV  (m,I)  = CTCT  (I)  093« 

IP  (BB.LE.3)  GC  TC  1001  C939 

3940 

ACAFS-BCILTCN  0941 

2000  DO  2046  1=1, NN  C942 

CEL=STEP*  ( 55 . * F V (4,1) -59. *P  V (3,1) *37 .*FV (2,1) -S . *F V (1  ,1) )/24  . 0943 

Y (I)  = YU  (4,1)  ntl  0944 

2048  DEIY (1 , 1 ) = Y (I)  0945 

1 = XV (4)  +£186  C 9 46 

CALI  KASEI  0947 

IF (IFIAG. NE. 0)  GC  TC  IOC 

XV (5) =T  0948 

DO  2051  1 = 1 , NN  C 94 9 

DEL=STEP«  (9.*DYCT(I)H9.*FV(4,I)-5.*EV(2,I)4FV(2,I))/2  4.  C950 

YO (5,I)=1U (4,1) + CEL  C951 

205  1 Y (I) = YU  (5,1)  0952 

CALI  HASEL  0953 

IF(IFLAG.KE.O)  GC  TC  100 

IF  (BCDE.LE.2)  GO  TO  42  C954 

0955 

EFBCF  ANALYSIS  0956 

SS1  = C.C  0 9C7 

CO  3033  1=1, NN  C958 

EPSIL=F*ABS (Y (I)-EEIY (1  ,1)  ) C959 

IF  (RCCE.EQ. 3.AND.Y  (I) .NE.0.)  E F SI L= EP S II/ A E S ( Y ( I ) ) 0960 

IF  (SSE . IT. EPSIL)  SSE=EPSIL  0961 

3033  CONTINUE  0962 

IF  (E1BAX.GT.SSE)  GC  TC  3035  0963 

IF  (ABS  (STEP)  .II.E2FIN)  GC  TC  42  C964 

LL= 1 C 965 

B fl= 1 C 966 

STEE=STEF*FACT  0967 

GC  TC  1 C C 1 0968 

3035  IF  (LL.LE.1.0F.SSE.GE.E1KIN.CE.E2BAX.LE.AES  (STEF))  GC  TO  42  0969 

LL=  2 C970 

BB=  3 C 971 

X V ( 2 ) = X V (3)  C972 

X V ( 3)  =X  V ( 5)  C97  3 

DO  5363  1=1, NN  0974 

FV (2,1) =EV (3,1)  C 975 

FV (3,1)  =IYDT (I)  0976 

YU (2,I)  = YU (3,1)  C 977 

5363  YU (3,I)=YU(5,I)  C978 

STE  E = 2 . 0 * STEP  0979 

GO  TC  1 0 C 1 0980 

0981 

EXIT  BCUTINE  0982 

42  LL= 2 0983 

BB=4  0984 

CO  12  K= 1 , 3 0985 

XV (K) =X V (K+1)  0986 

CO  12  1=1, NN  0987 

FV (F,I) =FV ( K+ 1 , I)  0988 

12  YU  (K,I)  = YU  (K  + 1 , 1 ) C 989 

XV (4)  = XV  (5)  0990 

DO  52  1=1, NN  0991 

FV (4,1) =CYCT  (I)  0992 

52  YU (4,1) = YU  (5  , I)  0993 

IF  (BOCF.LE.2)  BBTOBN  0994 

E = AES (XV  (4)  -AIFBA)  0995 
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C 996 
0997 


IP  (E.it.BPfl)  GC  10  2000 
E PH=  F 

100  FFIUFN 

INC  0999 


o o 


wm 
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C 


SCFFOUT  I k E EBIN1F  ( N H H T ) 

FRINTS  A LINE  EACH  1IME  II  IS  CALLIC 
CIMENSICN  G(3,3),C1  (3,3),A1(3),E1(3),C1(2) 

1, TITLE1<10),1ITIE2(1C),UNIT(10) 

DIMENSION  NWHY  (2)  ,IEINF  (2) 

CCKrCN  /CTNST/  EI,PIT2,Fir2,  CIGS,FAL,EUI!  (3) 

CCH  MON  / F K/  N, STEP, MC EE  , E 1 K A X , E 1H I N , E 2M  AX  , E 2 MI  N , FACT, RSTART 
COMMON  / E IN/  N2,MUX,FN2  (8)  , TFCL  A E (2)  , FC I A P (2) , SPACE, COIL, FIELD 
CCMMCN  /TIG/  NTYP,RNEBW,ENEBB,RAYBEG,FAYSFT,IINES,IHOP,NUTEST,APHT 
COMMON  B(12),T  /WW/  IE  (1C)  ,SC, W (4C0) 

CCMMCN  /XX/  X,EXFE,FXFTfl,FXFEH,FXPT,EMAX 

COM  MC  N / V E R N 1/  V N (2 50 ) , V N F F (250 ) , V N FIH  ( 2 50 ) , V N E PH (2 50) 

COMMCN  / V EF  N 2/  FRANCE  (25C)  , VHT (250) 

CCMMCN  / N CO  PI / NPR INI, KCPT, BPS! 

CCMMCN  /E  ? L T/  S I LEG 

EQUIVALENCE  <1BETA,R(2)),(FHI,R(3)) 

EQUIVALENCE  (F  , W (3) ) , (P LC N , M ( 1 3) ) , (LCN , H ( 1 4) ) , (PLAT, W (15) ) , 

1 (LAT  ,W  (16)  ) , (PITA,  S (17)  ) , ( A Z 1 , B (18)  ) , (EAFTEF,H  (19)  ) , (XMTFH,W  (20)  ) 

2,  (P7,W  (2E0)  ) , (E 8 , B (281)  ) , (F9  , W (282)  ) 

EQUIVALENCE  (FAKGE,«(384)),(A2CEV,«(379)),(H,H(383)) 

EQUIVALENCE  ( F2 IT  , S ( 372 ) ) , ( P 3LI , W (37 3) ) , ( A Z A , W (374) ) 

PEAI  N2,ICN,LAT, MCX 

CAT  A A1,E1,C1/lF!,lHN,1HO, 1HX, 1HE, 1HB, 1FT  , 1HI , 1HD/ 

DATA  TITIE1  (7) ,TITLE2  (7)  ,UNIT  (7)/4H  F H . , 4 HP  A T H , 4 H KM/ 

DATA  TITLE1  (8)  , TITLE  2 (8)  ,UNIT(8)/4H  ABS  , 4 EC B EN , 4H  EB/ 

DATA  TITLE1  (9)  , TITLE2  (9)  ,UNIT(9)/4H  EO E , 4H F L E R , 4H  C/S/ 

DATA  I EL  Ni  K/2*  4 H 


C 4 9 3 
0494 

0496 

0497 

0498 

0499 

0500 

0501 

501  KV  1 
5 C 1 KV  2 
501  KV  3 
501  KV  5 
501*KV  4 

0502 

0503 

0504 
C 505 

UOFI  1 

0506 


P7=C.C 


F8  = C .0 


F9  = C . 0 

IF  (PNEKK.EQ.C.)  GO  TC  8 C 5 1 2 

0513 

NEW  W APFAY  — FEINITTAIIZE  C514 

ENBBN=C.  0515 

SPL=SIN (EION-LCK)  C516 

CPL  = SIN  (FIC2-  (PICN-LCN) ) 0517 

S P=  SI N (FIAT)  0518 

CP=SIN (FIE2-PLAT)  0519 

SL=  SIN (LAT)  C520 

CIr=SIN  (FIE2-LAT)  0521 

G (1,1) =CEI*SP*CI-CP*SL  0522 

G (1 ,2)=SEL*SP  0523 

G (1,3) =-SI*SP*CEL-CL*CP  0524 

G (2, 1) =-SPL*CL  0525 

G (2 , 2 ) =CF  L 0526 

G (2,3) =SI*SPL  0527 

G (3,1)=CI*CP*CFI*SP*SL  0528 

G (3,2) =CE*SFL  0529 

G (3,3) =-SL*CP*CEL«SF*CL  0530 

DENM=G (1,1)  *G  (2,2) *G  (3, 3)  *G (1,2) *G (3,1) *G (2,3) *G (2,1) *G  (3,2) *G  (1  ,3  0531 

1)  -G  (2,2)  *G  ( 3,  1)*G  (1,3)-G  (1,2)  *G  (2,  1)  *G  (2 ,3) -G  (1,  1)  ♦G  (3,2)  *G(2,3)  0532 

G1 (1 , 1)  = (G  (2,2) «G  (3 ,3) -G  (3,2) *G  (2,3) )/EENM  0533 

G1  (1,2)  = (G  (3,2)  «G  (1,  3)  -G  (1 ,2)  *G  (3,3)  J/EENM  0534 

G1  (1,3)  = (G  (1 ,2)  *G  (2 ,3)-G  (2,2)  *G  (1,3)  )/DENH  0 5 35 

G1 (2,1)= (G(3, 1) *G (2,3) -G  (2, 1) *G  (3,3) )/EENM  0536 

G1  (2,2)=  (G (1,1) *G  (3,3) -G  (3, 1) *G  (1,3) )/DENM  0 537 

G1  (2,3)  — (G(2,1)  *G  ( 1 , 3 ) — G (1 , 1 ) *G  (2,3))/EENM  0 5 38 

G1  (3,  1)  = (G  (2, 1)  *G  (3,2)-G  (3,  1)  *G  (2,2)  ) /DEN M 0539 

G1 (3,2) = (G (3,1) *G  (1  ,2) -G  (1 ,1) *G  (3,2) ) /DENM  0540 

G1  (3,3)  = (G(1,  1)  *G  (2,2)-G  (2 , 1 ) *G  (1,2)  J/EENM  0541 


noon 


1 
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C 

C 

c 

c 

c 

r 

c 

c 

c 


RC  = E A FT  H F X MT  FH  0542 

X F = FO  *G (1,1)  0543 

Y F=  F 0 * G (2,1)  C 5 4 4 

ZR  = F0  *G (3,1)  0545 

COST  E P=  G ( 3 , 1 ) C546 

SINTHR=SIN(ARCCS  (CCSTHF ) ) 0547 

FHI F=  ATAN2(Y3,XR)  C 54  R 

ALFK=AIAN2 (G (3,2)  ,G (3,3)  ) 0549 

IF  (F8.NF.0.)  PUNCH  5,  E1(NTYF),IE  C550 

5 POFPAT  ( A 1 , S A8 , A7 ) C551 

IF  (F9.NE.0.)  PUNCH  5,  C1(NTYF),IE  0552 

I?  (E7.NI. 3.)  PUNCH  8,  A1  (NTYE)  ,ID  C553 

6 RCFPAT  (A  1,  1X,?A8,A6)  0554 

C555 

8 IF  (FAYFFG.EQ.C.)  GC  TC  12  0556 

NN=PINC(N,9)  0557 

FFIN1  1C,  (TITIE1  (NF)  ,T  I T I E 2 (NR)  ,NF=7,NN)  0558 

10  FORMAT  <6  1X,7HAZIPUTH/6CX,9HCFVIATICN,7X,9HELEVATTCN/2CX,  15H  HEIGHT 

1 PANGF,3X,3HFSI,3X,  1 1HCOLAT  ICNG,2  (5X,  12HXNTF  LOCAL)  , 560  KV 

2 2X,12HFCLARI7ATICN,2X,8H  G R . PA  TH , 4 A 4)  561  KV 

PRINT  11,  (UNIT (NF) ,NR=7,NN)  0562 

11  PCFPAT  ( 1 6X  , 2 (7  X , 2H  K N)  ,4X, 

2 3HCFG,  6 (5X, 3HCEG) , 3 X , 4 H F F A I , 4X  , 4 HI  P AG  , 563  KV 

1 5X,2HKM,1X,2  (A6.2X) ) 564  KV 

12  V = C.  0565 

I?  (N2.NF.0.)  V=(N(«)**2*F  (5)**2  + H(6)**2)/N2-1.  0566 

H=F (1 ) - FAFTHR  9667 

SINTH=SIN  (THETA)  056e 

COSTH=SIR (PIC2-THETA)  0569 

XP=F (1) *£INTH*SIN  (PIC 2- FHI) -XR  0570 

YP=F  (1) *£INTH*SIN  (PHI)-YF  0571 

ZP  = F ( 1) ♦CCSTH-ZF  0572 

EES=XP*G1  (1,1)  4 YP  1 (1,2)*ZP*G  1 (1,3)  0 573 

ETA=XF*G  1 (2, 1)  -*-1F«G  1 (2,2)  +ZF*G1  (2,3)  0574 

ZFTA.=  XF*G1  (3,  1)  ♦ Y F*G  1 (3,2)  + ZP*G1  (3,3)  C575 

RCE2  = F T A **  2 ♦ Z F I A * *2  0576 

RCF=SQFT  (RCE2)  0577 

RANGE=FC*ATAN2 (FCE, F0+FPS)  UCFI  2 

ANG  DEG=  A T AN  2 (R(4),5CRT(R(5)**2+B(6)**2))*EEGS  0579 

SR=SORT  (ECE2  + EP £* *2 ) 0580 


CHANGES  MADE  EY  ARCCN  CCRP.  3Y  K.VANGURI  580  KV  1 

STORE  THE  ELECTRON  DENSITY  FROPILF  AND  THE  tEFIVATIVES  580  KV  2 

CALCULATE  N THE  ELECTRON  UENSITY  IN  APPLETON  - HAFTFFE  FCFMULA  580  KV  3 
N = 124C0*F+*2  * X EIECTRCNS/CUEIC  CP.  580  KV  4 

EN/CF  - EI/CC/KP. 

EN/LTH  - EI/CC/E  EG 

F = FREQUENCY  IN  PHZ  56C  KV  5 

EN/EEH  - FE/CC/EEG 

DERIVATIVES  CP  El.  EFN.  H.F.T.  R , I H , F F.  APE  CCPPUTEE  EY 
MULTIPLYING  PXPR,  FXPTH , FXEPH  VITF  THE  CONSTANT  C. 


C = 1 2400  .0  * F *♦  2 

580 

K VI  0 

PPFT  = PPRT  ♦ 1 

580 

KV  1 1 

CALI  ELECTX 

580 

K V 1 2 

VN(MFFT)  = 124CC. C * F * *2 

*X 

58C 

KV  1 3 

VNFF  (HF FT)  = C * PXPR 

580 

K V 1 4 

VNPTH  (HFFT)  = C * PXPTH 

♦ RAC 

580 

K VI  5 

VNPPH  (MPFT)  = C * PXPFH 

♦ FAC 

580 

KV  16 

VCANGE  (Pt  3T)  = FANGF 

580 

K V 1 7 

on  on  o non  on 


I 
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VHT(BPFT)  =•  H 

IF(K0FT.EC.C.ANE.NWPY(1)  .EQ.  IE  l SJ<(1)  .AM.  NWHY  (2)  .EC.IEINK(2)) 
1 P N 

PRINT  CCIAIIltEE  AM  LCEGITUEE 

R2LT  IS  COLATITODE  AND  R3LT  IS  ICNGITUEE 

B2IT  = F ( 2)  ♦ CIGS 

R3LT  = F ( 3 ) ♦ CEGS 


580  K V 1 8 

PE  IU 

58C  KV21 
580  K V 2 2 
580  KV23 
58C  KV24 


COMPUTE  SIDEG  - ANG1  s BBTi'EN  NAVE  NCFM.AI  AM  THF  MAGNETIC  FIELD580KV27 
**  CALI  BAGY  EC  E CPIICNS  1 + 3.  **  CALL  TRUFLC  FOP  CFTION  2.  **  583  V28 


CALI  TBUEIE  OFTICN  2 

IF  (SB.GI.1.F-2)  GC  TC  20  0581 

PRINT  15,  V,NHHY,K, RANGE,  S I E E G , R 2LT  , R 3 LT , 582  KV  1 

1 ANGEEG, POLAR, T,  (P  (I)  ,1  = 7, NN)  582  KV  2 

15  FORMAT  (1X,E8.1,1X,2*4,F6.2,1X,F8.2,3F7.1,  23X,  6EP.2,F6.1) 

GO  TO  40  C 584 

20  ANGE=ATAE2(EFS,ECE)  C585 

EL=ANGE*EEGS  0566 

IF  (PCI.GE.1.E-2)  GC  TC  3C  C587 

FFINT  25,  V,NNBY,E,FANGE,  S I CSG  , F 2L1  , P 3 L T , 

1 EL, ANGEEG, FCLA F,T,  (F  (I) ,1  = 7, NK)  588  KV  2 

25  FCFMAT  ( IX, E8. 1 , IX, 2? 4,F8. 2,  IX, E6.2 , 3F7.  1 , 15X,  7F8.2,F6.1) 

GC  TC  4C  0590 

30  AKGA=ATAF2(ETA,2E1A)  0591 

ANA= ANGA-ALPH  0592 

SINANA  = SIN  (ANA)  0593 

SINPHI=SINANA*SINTHF/SINTH  C594 

COSFHI=-SIN  (PII2-ANA) *S  I fi  ( F I E 2-  (PHI-PHTR) ) ♦SINANA*SIN  (EHI-PHIP)*  C595 

1 CCSTEF  C 596 

AZEEV=18C.-AMCE  (540  (AZ1-ANGA)  MEGS,  36 C .)  C597 

IF  (F  (5)  .NF.0..CR.R  (6)  .NE.C.)  GC  TC  24  0558 

FRINT  23,  V,NWFY,H,FANGE,  S IOEG , F 2L T , B 3 LI , 

1 AZEEV, EL, ANGDEG,PCL AR,T,  (P  (I)  ,I  = 7,NN)  599  KV  2 

33  FORMAT  ( IX, E8. 1 , 1 X , 5A4, F8. 2 , IX , E 8. 2 , 3F7 . 1 , E 8 . 2 ,7X  , 7FP.2,F6.1) 

GC  TC  4C  C60 1 

34  AZA=18C .-AMCE (540.- (ATAN2 (SINPHI,CCSPHI) -ATAN2  (F  (6) , P (5) ) ) *DEGS,  0602 

1 36C . ) 0603 

FRIET  35,  V,NNPY,H, RANGE,  SI E EG , B 2LT ,E 3 1 T , 


1 AZEEV,  AZA, EL, A.NGDEG,EOLAF,T,  (R  (I)  ,I  = 7,NN)6C4  KV  2 

35  FORMAT  ( IX, E8. 1 , 1 X, 2 A4, F8 . 2 , 1 X , F 6 . 2 , 4F7 . 1 , 8F8.2,  F6.1) 


40  LINES=IIKES+1  0606 

IF  (N.IE.9)  GC  1C  45  C607 

PRINT  42,  (R  (I) ,1=1 C ,N)  0608 

42  FORMAT  (11CX,2E8.2)  609  KV 

LINES  = IINES*1  C6  1 0 

45  IF  (RAISE!. EC. C.)  FETUBN  C611 

ELA=BE1A*EEGS  C612 

IF  (H.IE.1.)  ANGDEG  = ABS  (ANGEEG)  C613 

0614 

2-C  FIYSETS  C615 

IF  (P8.EC.0.)  GC  10  55  C616 

TLCK=LCN*EEGS  C617 

IF  (TICN.LT.O.)  TIC  F*TLC  N ♦ 36  0 . 06  18 

TLA1=LAT*EEGS  C619 

IF  (TIA1.LT. 0.)  TIAT*TLAT+360.  C620 

AZ=ANGA*tEGS  0621 

IF  (AZEEV. LE. -100.)  A ZD E V* A Z E E V ♦ 360  . 0622 

IF  (AZA.  IE. -ICO.)  A2A3AZA*360.  C623 
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PUNCH  50,  B1  (NTYP),lt<1),XflTBB,UAT,«CN,H,FANGE,iZ,F,lHOF,  0624 

1 AZEEV, A2A, tL»,»NCDFG,1FClA!>,EClAR, MUST  C625 

50  FCFFAT  <M,A3,2FF6.C,1P2F4.9,2PF6.C,  1FF6 . 0,  F 5. 0, 3PF7 . 0 ,1 1 , 2P4F5 . 0,  C626 

1 U4F4.C,I1)  0627 

C C628 

C SUEE.  EAYSTTS  C629 

55  IF  (P9.NI.0.)  PUNCH’  67,  Cl  (NT Y P ) , IE  (1) ,F,IHCF,ELA,  (F  ( I) ,1=7,10)  , C630 

1 T,KUT  E SI  0631 

60  FORMAT  (A1,A3,3FF7.C,I1,2PF5.C,CP5P12.4,I3)  C632 

C C633 

C 2-E  FAYS  FIS  C634 

IF  (NU1FS1. NE.O)  APFT=H  C635 

IP  (P7.NI.0.)  FfJNCH  70,  A 1 < NT Y F ) , IE < 1)  , F , IHCP , EL A, ANGEEG , T , R (7)  , C636 

1 RANGE, AEHT,NtlFS7  0637 

70  FORMAT  ( A 1 , 1 X , A 3 , 3P F 7 . 0 , 1 2 , r FF  1 C . 5 , F 9 . 5 , 3 F 1 1 . 4 , F 1 2 . 5 , 1 X , 1 1)  C63S 

RETURN  0639 

FNE  C 640 


i 


SUEFCUTIN*  ADJUST 

C A SUBROUTINE  TC  AEJUST  THE  E IE V ATIC  N ANGLE  EFTA 

C AZIMUTH  TCLEBANC E IS  SPECIFIED  IN  KH  THEN  CCNVEETEC  TO  RADIANS 

EIRE  NSICK  A 1 (3,3)  , El  (3)  ,C  1(3),  DOR  1(5) 

CCMMC  N/CCNST/  F I , FI  T2  , FI  r 2 , E EG  S , F A E , E D M (3) 

COMMON  Y (12)  , 1 /Wb/  10(13)  , W 3,H  (400) 

CCRRCN/C  E NSC/  Cl N £ (5 2) , H EIT  (5 2)  , ELK  A NJ ( 5 1 , 3 , 2) , APFOX  (0,2,2)  , FR  AT  10 
1 ,NHAX  ,NSTART,  JEIAC-,  NSCI , E EMI  N (21)  ,JJJM1 
CCMMC  N/F.K/  N,  STEF,  MCE  E,  DORY  (5)  , F STM.  FT 
CCMMCN/FIN/  N2, MUX, EN2  (8)  ,FGLAR  (4) , SP AC E , CC 1 1 , FI  ELD 
COMMON  /SCO  FT/  NP FI  NT , KC FT , R F FT 
FF  A I N2,MUX,MU 

EQUIVALENCE  (GF  A N C-F  , W ( ^ E 5 ) ) , (CHANGE  ,W  (364)  ) , (BETA,W  (17))  , 

1 (CCNTFI  ,V  (38  6) ) , (TOLFRF.W  (3P7) ) , (AZ1  ,W  (16) ) , (PC, W (37  5) ) , 

2 (ALPHA,  b (376)  ) , (T HO  , H ( 3 7 7 ) ) , ( PH  C , W (.'  78 ) ) , ( A Z E E V , W ( 37  9)  ) , 

3 <AZA,M3  7 4)  ) , (EFTAT,K  (389)  ) , (H,W  (383)  ) , (P2IT.W  (372)  ) , 

4 (R31T,N  (37  3)  ) , (E  AFTEF,W  (IF)  ) 

DATA  A 1 (1,1)  ,H  (2,1)  ,A1  (3,1)/3*1.C/ 

C SET  UP  TEE  MAXIMUM  HEIGHT  FOF  GFCUNI  - SATFIIITE  CASE 

IF  (NSOI.EC.C)  FETUFN 
NHCF=W  (254)  +0.1 
KC  NT  FL  = CC  NTRL 
FAEIUS=EAFTHF+H  (4C) 

IF  (GRANGE. NE.C.C)  GC  TO  8C6 

AZTCL=TCIEBE/FAEIUS 

GC  TC  £ C ' 

8C6  AZTCL=TCIERE/  (RADIUS*SIN  (GF  A NGF/F A E I DS ) ) 

8C7  DA7TCl=A2TOI« IFGS 

FRINT  eC8,T0LFEE,CAZTCL 

8C8  FORMAT  (1X,16FFANGE  TCI E F A NC ?= , F 1 2 . 6 , 3H  KR, 2X , 1 8H AZIMUTH  TO  LF  F A NC  E = 
1,F12.6,EF  DEGFEES) 

AZ2=A71 

DC  800  111=1, NSCI 
I NC  F = 0 
CONT  = 0 . C 
FRINT  6 C 5 
805  FORMAT  (IF  1 ) 

IF  (Vi  (3EC)  .NE.  1.  C)  GC  TC  249 
PRINT  252, LIL 

252  FORMAT  (2 X ,2 6 EEC M I NG  FOB  SCIUTICN  NU REEF, 13) 

C SET  UP  AN  INITIAL  SLOPE  EASE  E UICN  FI  AN  ! GECMETFY  CC N S I E E F A T IC N 

C FOF  SATEIIITE  TC  GFCOND  CF  GFCONC  TC  SATEI1ITE  CASES 

2 49  EINCF  = -GFANGF/  (SIN  (AEFCX  (ILL,1 ,1)) *CCS  (APRCX  (L1L,1  ,1) ) ) 

IF  (W  (38C) .NE.  1.C)  GC  TC  253 
D IN  C B=  C . C 

INDFX=AFECX  (LIL, 2,1) 

EO  25  4 1=  1 , N HCI 

DINCR  = CINCF+ (FIFANJ  (INDEX, 2,1) - E LB  A N J (INEEX-1,2,1) )/ 

1 (ELFANJ  (INDEX,  1,1) -EIFANJ  (INDEX- 1,  1,1)) 

254  CO N T I NC  F 

253  CCUNT=C.C 

BET  A=  AF  EC  X (LH  ,1,1) 

IF  (H  (38C) .NE.  I.C. CB  .NHOF. NE.  1)  GC  TC  2C0 
CO  260  1*1,JJJH1 

IF(EFTA.GT.CBRIN  (1+1))  GC  TC  26C 
J JK  = I 

ELEFT=EERIN  (JON) 

BRIGHT  = EEMIN  (OJN+  1) 

GC  TO  3CC 
260  CC  NT  I NC I 
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C FPFCF  IF  COMPETING  HCWINC-  ANGLE 

FEINT  261 

261  FC  PM  A 1 (2F,39H***FFRCR  IN  CONFUTING  HOPING  ANGLE  ***) 

GO  TC  6 C C 

3CC  CALL  EAY1NT  (AZ1  ,EETA) 

EL=EETA*EEGS 
AZ3=A7  1«EEGS 
FEINT  55,EL,AZ3 

IF  (V  (380)  . NE.  1.C.CR.  NHCP.NE. 1)  GO  1C  3C1 
IF(EETA. II. BLEE1. CP. FETA. GT. BRIGHT)  GO  1C  7CC 
3C 1 C A 1 1 TFACF 

FEINT  75,P2ll,F3LT,AZDFV,AZA 

75  FOP  WAT  (1K,10FRAY  CO l AT=  , F 1 2 . 5 , 2X , 9HP A Y LCNG  = , E 1 2. 5, 2X , 

114HF. A7  EE  V AT  1 .=  , P 1 2 . 5 , 2X , 1 6 H L CC A L AZEEV  AT  F.=,F12.5) 

IF (V  (394) .NE.C.C)  C FANGE  =1 

IF (AES  (GRANGE-CPANGE)  .LE.1CIERE)  GO  10  5CC 

IF  (F.GT.  ( H (4  0)  -*0.1)  .CR  . H . LT . ( W (43) - 0 . 1 ) ) GC  TO  780 

WP  F T=  C 

El  (1) =CFANGE 

A 1 (1,2)  =EETA 

A1  (1,3) =11(1,2) **2 

IF(INCP.EC.O)  GC  TO  310 

CT N C F=  (El  (1)  -E  1 (2)  )/  (A  1 (1,  2)  - A1  (2,2)  ) 

C INIERFCIATF.  LINE AFLY  IF  FOSSIELE 

IF  (El  (1)  .LT. GRANGE. ANE. 31  (2)  .LI. GRANGE)  GC  1C  310 
IF (El  (1)  .GT. GRANGE. ANE. El  (2)  .GT. GRANGE)  GC  1C  510 
E=  (El  (1)  -SI  (2) )/  (A1  (1,2) -A1  (2,2) ) 

A=E  1 (1) -I*A1  (1,2) 

EETA=  (GRANGE  - A.  )/E 
GO  1C  59C 

C INCFEMEN1  OP  CECREMFNT  TKF  APFRCXIMA1E  EIFVA1ICN  UTILIZING  THE 

C SLCTE  CF  THE  I-E  CUFVT 

310  EIEEP=GPANGE-CE ANGE 
EETA=EET#+DIFEF/DINCF 

IF (EE1A .GT.C.O.CR.W  (38C) .NE.  1,0)  GC  TO  312 
IF  (CCNT  .EC.  1 .0)  CO  1C  2 1 DC 
EFT  A = 0 . 0 
CCN!=  1 . C 

312  CAII  PAYINT  (AZ1  .BETA) 

EL=EFTA*EEGS 
AZ3=AZ1*E£GS 
FEINT  f*,II,AZ3 

IF  (Vi  (360)  .NE.1.C.CR.NHCE.NE.1)  GC  1C  311 
IP  (EE1A . IT.BIFE1  .CP.EE1A.G1. EPIGH1)  GC  1C  7C0 

311  CALL  TRACE 

PRINT  75, P2I1,F3L1, AZCEV, AZA 

IF(fc  (39  4)  .NE.C.C)  CEANGE  = 1 

IF  (ABS  (GFANGF-CEANGE)  .LE.1CIEFE)  GO  TO  5C0 

IF  (H.G1.  (N  (4C) + C.  1)  .CP  .H.IT.  (W  (40)-C.  1)  ) GC  1C  780 

MPFT=C 

El  (2) =CF  ANGE 
A 1 (2,2)  = EETA 
A1(2,3)=A1(2,2)  ♦ * 2 

DINCP=  (El  (1)-E1  (2)  )/(A1  (1,2)— A 1 (2,2)) 

INCF=INCE+1 

C IF  THE  GIVEN  FANGE  IS  BETWEEN  TEE  FIRST  ANE  SECCNE  RANGE  THUS 

C COMPUTES  , INTEEFCLATF  LINEARLY  CN  EETA. 

IP(E1(1) .LT. GRANGE. ANE. El (2) .IT, GRANGE)  GC  TC  580 
IF  (El  (1)  .GT. GRANGE. ANE. B1  (2)  .GT. GRANGE)  GO  TC  580 
C INTERICEATE  USING  R A KG E= A + E * E E T A 

E=(E1(1)-E1  (2))/(A1  (1,2) -A  1(2,2)) 
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A = E 1 ( 1)  -E*A  1 (1 , 2) 

EETA  = ( G B A.  N G E - A. ) / B 

GO  TO  590 

C I NC  F E M E N 7 OH  EECREMEN7  TEE  APPROXIMATE  FIEVAUCN  UTILIZING  THE 

C SICFE  CF  THE  C-B  CUFVF 

=80  CIFFR=GFANGE-CRANGE 

EET  A = EFTA-*DIPE5/EINCS 

IF(EETA.GT.0.0.CF.N  (380) .NF.  1.3)  GC  TC  5 e 1 
IP  (CCNT.EQ. 1.0)  GO  TC  2 1 0 C 
EFT  A =0.0 
CON  7=  1 .0 

581  IF (INCE.GT. KONT81)  GC  TC  20C0 
GO  TC  3CC 

5 SO  CA1I  HAT  1NT  (471  ,E FTA) 

F L=BETA*  LEGS 
AZ3=AZ1*EFGS 
PFINT  55,EL,AZ3 

IF(W  (38C)  .NE. 1.C.CF.NHOF.NF.  1)  GC  TC  5S1 
IF  (EETA.IT.BLFFT.CR.BFTA.GT.EFIGHT)  GC  TC  7C0 
591  CALI  TBACF 

PRINT  75,P2LT,  P3L7,  AZEEV,A7.A 

IF  (V  (39U)  . NE. C. 3)  CPANGE  = T 

IF (AES  (GFANGE-CFANGF)  .IF.TCLEF5)  GC  TC  5*0 

IF  (E.GT.  (H(«0) *0.  1)  .CR  . H . LT . (K  <4 C)  - C . 1 ) ) GC  10  780 

M PF  7 = 0 

El  (3)  =CRANGE 
A1 (3, 2) =EET A 
A 1 (3 , 3) = A 1 (3,1)  **2 

CALI  EQSCLV(B1,A1,3,3,1,C1,CUH1,1.CE-8,1ER) 

C US F CUAEFATIC  PCREUIA  TC  CCHFOTE  EETA 

C Cl  (3)  *E  E 7 A**  2+C  1 ( 2)  * B FT  A *C 1 ( 1 ) -G FA NG F=C 

ARG=C1  (2)  **2-4.  C*C1  (3)*  <C1  ( i) -GRANGE) 

IF(ARG)  200,210, 2 10 

C THE  AFGOBENI  IS  NEGATIVE  , NC  SCIUTICN 

200  IP  (V  (3EC) .EQ.2.C)  GC  TO  611 
PFINT  20  1C, LLl 
PRINT  6 1 C 
GO  TC  1 C 0 C 

611  PRINT  2C11 
PRINT  612 

612  FCRFA.T  (6 X,  53HCISCCNTINUITY  IN  1EF  RAY  TFACFE  R A NG  E-E  LF  VAT  IC  N CURVE 
1 ) 

GC  TO  1CC0 

210  EETAP= (-C1 (2) ♦ SQR  T ( ARG) )/ <2.0*C1  (3) ) 

EETAM=  (-C1 (2) -'CRT  (ARG) ) / (2. C*C  1(3)) 

C FINE  TEF  CLOSEST  RANGE 

C FINE  TEE  CLOSEST  ANGLE  TO  TEE  GIVEN  RANGE 

EIEE 1 = ABS (GPANGE-B1  (1)) 

DIFF2=AES  (GRANGF-E1  (2)) 

DIFE3= AES  (GFANGE-B1  (3) ) 

IF(EIFF1.LT.DIEE2.ANE.EIFF1.LT.tIFF3)  AN G= A 1(1,2) 
IF(DIFF2.LT.DIFE1.ANE.EIE?2.LT.EIFF3)  AN G= A 1(2,2) 

IE  (EIFF3. LT.EIEF1.  A NE.CIFF3.LT. El FF 2)  ANG=A  1 (3,2) 

E ET  A= l E T A fl 

IF (ABS  (ANG-BETAF)  .LT . A B S ( A NG -BET AH) ) B E T A = E IT  AP 
650  EL=EETA*EEGS 

A Z 3=  A 7 1 * E EGS 
PRINT  55, EL, A73 

55  FORH AT  (/  5X, 33HELEVATICN  ANGLE  CE  TFAVSHISSICN  = ,F12.',4‘ 

1 1H AZIMCTF  ANGLE  OF  TRANSH1SSTCN  =,F12.€,4H  EEG/) 

100  COUKT  = CCENT  + 1 .0 
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IF  (CC  0 N'i  .GT . CC  NT  T I)  GC  1C  2COO 
CAI I RAY1NT  (A21  ,EETA) 

IP  (W  (38C)  . NE. I.C. CR.NHCE .NE.  1)  CC  TC  I'll 
IF(FETA.IT.3LEET.CR.EETA.GT.BBIGHT)  GO  1C  7C0 
101  C AH  IT  ACE 

FPINI  75,R2LT,F3LT, AZEFV,AZA 
IF(N  (39ft) .NE.C.C)  C RANG  1 = 1 
C DSE  THE  C-F  CUBVF  TC  ADJUST  EE1 A 

EIFEF=GBANG5-CFANGE 

IF  (ABS  (EIFFB)  .IE .TOLERE)  GO  1C  500 

IP  (F.GT.  (W  (40) «C.  1)  .CR  .fi.Il.  (H  (ftO) -0.  1)  ) GC  1C  783 
BPFT=C 

C SELEC1  1FE  CLOSEST  FANGE  TC  THE  GIVEN  BANGE 

DIFF 1 = GFANGE-E1  (1) 

DIFF2=GEANGE-E1  (2) 
riFF3=GBANGF-F1  (3) 

IF  (ABE  (F1FF1) -ABS  (DIPF2) ) 13,20 ,2C 
10  IF  (AES  (CIFF2) -AES  (DIFF3) ) 50,60,60 

C RFPIACE  1 BE  SECCNE  FANGE  AN  t ELEVATION  ANGLE 

6C  El  (2) =CBANGF 

A 1 (2,2) = EET  A 
A1  (2,3)  = A1  (2,2) **2 
GC  TC  15C 

20  IF (AES(IIFFI) -AES  (D1FF3) ) 5C,3C,30 

C REPLACE  1 EE  FIBST  RANGE  ANC  ELEVATICN  ANGLE 

30  B1(1)=CEANGT 

A 1 C,2)  = EETA 
A 1 ( 1 , 3) =* 1 (1,2) **2 
GO  TC  15C 

C RFPIACE  1 BE  TBIFt  FANGE  ANC  EIE VATIC  N ANGLE 

50  B1  (2) =CTANGE 

A 1 (3,2) =EETA 
A 1 (2,3) -A1 (3,2) **2 

150  CALL  ECSCLV(B1,A1,3,2,1,C1,COB1,1.0E-8,IEF) 

C OSE  QUAEBATIC  1C  CCniOTE  BETA 

AFG  = C 1 (2) ♦*2-ft. 9*  Cl  (2) * (Cl  (1) -G FANG I) 

IF(ABG)  160,170,173 

C THF  ARGUEENT  IS  NEGATIVE  , THEBE  IS  NO  SCLIIION 

160  IF  (W  (38C)  .EQ.2.3)  GOTO  162 

PRINT  2C  1 G , HI 
PRINT  6 1C 
GO  TO  1CC0 
162  FRINT  2C 1 1 

PFINT  612 
GO  TO  1000 

170  BET AF= (-C1 ( 2) ♦SCRT  ( ABG) ) / (2  . C*C  1 (3) ) 

EET  AS= (-C1 (2) -SCBT (ABG) )/ (2.3*C 1 (3) ) 

C FIND  THF  CLOSFST  FANGE 

C FINE  THE  CLOSEST  ANGIE  TC  THE  GIVEN  BANGE 

DIEF1  = ABS  (GRANGE-B1  (1)) 

DIFF2=AES (GRANGE-E1  (2) ) 

CIFE3  = AES  (GRANGE-E 1 (3)) 

IF  (riFF1.LT.DIFF2.ANC.DIFF1.LT.HFF2)  AKG  = A 1 (1  ,2) 

IF  ( HFE2.LT.  DIFF  1 .AND.DIFF2.1T.  CIPF3)  ANG=A1  (2,2) 

IF (C IF F 3. IT. DIF F 1. A ND.DIPP3.LT. CIFF2)  ANG  = A 1 (3,2) 

EFT A=EE1AB 

IF  (AES  (ANG-BPTAI)  .LT  . AE  S ( ANG-BE  T AN1)  ) EETA  = EETAP 
180  IL=  E ET  A *C  PGS 
AZ3=AZ  1*CIGS 
PRINT  55  , EL , A23 
GO  TC  ICC 
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C COR  F EC1  FOR  AZ1MU1HAI  DEVIATION 

5CC  1?  (H.IE.  (W  (4C) *C.  1)  .ANt.H.GE.  (W  (40) -C.1) ) CC  TC  502 
GO  1C  "60 

502  A24= A?1-AZDEV*BAD 

IF (AES(A74-AZ2) .LE.AZ1CI)  GC  1C  3CCC 

INC  F=G 

MPRT*C 

AZ5=AZ1+AZDTV*RAD 
A Z 1 = A Z 5 

IF  (AES  (AZ5-AZ2)  . Gl. AES(A24-AZ2) ) A2  1 = AZ4 

COUNT=C  .C 
GO  1C  ICC 

2000  IF(W  (36C)  .EQ.1.C)  ERIN!  2C1C,llI 
IF  (U  4 38  C ) .EC.2.C)  ERIN!  2C11 

2C10  FORMAT  (///  2X,€2H***  HOMING  CANNCI  EE  ACHIEVED  FOE  APPROXIMATE  SOL 
1 0TIC  N ECFFER  , 13) 

2011  FORMAT  (///  2X,25H***  HC  FI  KG  CANNOT  EE  ACHIEVED  ) 

PRINT  2C2C,CCN1FI 

202C  FORMAT  (6X , 3 5 H IXC E ED E E NCBEER  CE  SPECIFIED  TRIES  , F5.0) 

GO  TO  1CCC 

2 1 C C FEINT  2C  1C , III 
FEINT  2 1 1C 

2110  FORMAT  (6>,4SH1HF  RANGE  IS  E1GHFF  THAN  THE  ZIFC  ELEVATICN  RANGE  ) 
GO  TO  1CCC 

C CHECK  IF  THE  DIAGNOSTIC  IS  FOR  A HICK  PAY 

700  JJKD2=J JK/2 

JJKR=JCE-JJKD2*2 
IF(JJKF.EC.O)  CO  TC  750 
C IT  IS  NCI  A HIGH  FAY 

PRINT  2C 1C, ILL 
PRINT  € 1 C 

610  FORMAT ( € X , 8 6HDI SCCN1IN D IT Y IN  THE  RAY  TEACID  RANGE-BETA  CURVE  OR  R 
1ANGE  ICC  CLOSE  TC  TEE  SKIP  EISIANCE) 

GC  TC  1 C C C 

C IT  IS  A.  HIGH  ANGLE  FAY 

750  PRINT  2C1C.ILI 

PRINT  755 

755  FORMAT  (6X,14HF1GH  ANGIT  RAY  ) 

GO  TO  1CC0 

780  IF(fc  (380)  .EC.  1.C)  HINT  2C1C,III 
IF  (V  (38C)  .EQ.2.C)  EFIN1  2C11 
PRINT  "SO 

790  FORMAT  (fiY, 52HRAY  BISSEr  THE  EARTH  OF  CAN  NCT  REACH  RECEIVER  HEIGHT) 


GC  TO  1CCC 

WE  FOUND  AN  EXACT  SCIUTICN 

IF  (R  (38C)  .EQ.1.C)  PRINT  3C1C,HL 

IF  («  (3EC) .EQ.2.C)  PRINT  3C11 

FORMAT <///  2X,3SH***  HCHING  ACHIEVED  EOF  SOLUTION  NUMBER  , 13) 
FORMAT  (///  2X,1$H***  HOMING  ACHIIVII  ) 

PRINT  2C  20, EL 

FCRHAT  (€  J ,11HI1EVATICN  *,  F 1 2 . 6 , 2X, 7 HD EG  RE E S ) 

PRINT  2C  30, AZ  3 

FORMAT  (6J,10HAZIMDTH  =,  F 1 2 .6 , 2X  ,7H  DIG  E E E £ ) 

IF(»  (354) .EQ.O.C)  GC  TO  3034 
PRINT  2C21,CRAK0E 

FORMAT  (EX, 21HHCrEI  IN  GRCDF  FATH  = , F 1 2 . 2 , 2X  , 2 H KM) 

GO  TO  3C29 
ERINT  2C25,CRAKGE 

FORMAT (6X, 16H HOMED  IN  BANG!  = , 1 1 2. 2 , 2X  , 2H K B ) 

IF  (K  (38C) .EQ.1.C)  GC  TC  3C39 
PRINT  3C26, W (20) 


.2iw. 


.... 
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3036  FORMAT (6X ,29HTFA REMITTER  HEIGHT  = , FS.2,2X,2HKM  ) 

PRINT  3027, W(4G) 

3037  FORMAT  (6 X , 1 7 HREt E IV E F FFIGFT  =,  F9.2,2X,2HKF  ) 

3C39  FPIKT  2C40,  F2IT 

3C40  FORMAT <FX,33EHCMIP  IK  GEOMAGNETIC  CCIAT1TUCE  =,  F 1 2.  5 , 2X,  7 H L EG RF  ES 

D 

PRINT  2C50, B3IT 

3050  FORMAT <6J,32HHOMFr  IN  GEOMAGNETIC  LONGITUDE  =,  F 1 2. 5 , 2X ,7HD EGRE ES) 
1CCC-  H ( 18) =AZ2 
8 CO  CCNTINIF 
FETCRN 
END 
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SUBFCUT 1 HI  HCBES 

CC  BBC  N/CC  N SI/  FI,FIT2,PTC2,DRGS,EAr,DUK  (3) 

CCBNON/IIKSC/  DENS  (52)  ,HETT  (52)  ,ELFANJ  (SI, 3, 2)  ,APRCX  (8,2,2)  ,FPATID 
1,NBAX,NSTAai,JEIAG,NSCLf DEHIN  (21)  ,GJJB1 
COHBCN  Y (6)  /RH/  IE  (1C)  ,SC  ,H  (4CC) 

CCHPCN/DENX/  FH  ( 1 S,  5 2 , c ) , T H FT A (IS)  , E G1  (52)  , F HI  (5)  , FRES  (4)  ,HL 
COHBCN/ FG2/  L A T f X , LC FS X , I HTMX 

EQUIVALENCE (EAFTHR, H (18) ) , (TLCN.H (14) ) , (FLCN,W (381) ) , (ILAT,W (16)  ) , 
1 (FLAT  ,V  (38  2) ) , (BETA, U (17) ) , (TFREQ.U (3)  ) , ( AZ 1 , U (18)  ) , (XMTRH,W (2?)  ) 
EQUIVALENCE  (TF A HGE  (3 85 ) ) , (BE1 AT , V(3e S ) ) , ( P HC , » ( 37 8)  ) , (THO  , W ( 377 

’)) 

EQOIVAIENCE  (PLCN.W  ( 1 3) ) , ( F I AT , H ( 1 5) ) , (HCF , U (2 5 U) ) 

C SET  R E AX  TO  CNE 

NM  AX-=  1 

SP=S IN  (FIAT) 

CP=SIN (PIE2-PLAT) 

C TRANSFORfl  THE  RECEIVER  COORDINATES  TC  GEOMAGNETIC  COOREINATES 

SINrFH  = SIN(RLCN-PICM 
CO  EE FH- SIN (PIC2-  (EICS-PICN) ) 

SL=STR  (FIAT) 

CL=SIN  (IIE2-RLAT) 

GPLC  N= AT  AN2  (SIN EPH*C L ,CCS D FR *SF *CL-C F* SI ) 

GRIAT=APCOS (COSrPB*CP*CI+SF*SI) 

GRLCN=GRIGN*DEGS 
GRIAT=GFIAT*EEGS 
ANGL=AES  (TLCN-BICK) 

ANGT=FIE2-TIAT 
ANGF=PIE2-RL AT 

C USE  THE  COSINE  IAK  TC  FINE  THE  ANGLE  SUETENEEC  AT  THE  EARTH  CENTER 

COSTHE=CCS( ANGT) *COS(ANGR)*SIN  (ANGT) *SI  M A R G B)  *C CS  (A  NG I) 

C COMFUTE  THE  FANGE 

ANGTP  = AFCCS  (CCSTHE) 

TRARSC=EARTHR+XBTFH 
TRANGE=TFANSC*ANGTR 
C CONFUTE  TRANSHITTER  COORDINATES 

COIAT=EIE2-TLAT 
XT=TFARSC*COS  (T IC N) * SIR  (CCI A T) 

YT=TR ANSC*SIN  (TLCK)  *SIN  (CCIAT) 

ZT=TRARSC*COS  (CCIAT) 

C CCMEOTE  RECEIVER  COORDINATES 

RECEIC*EARTHP+R  (4 C) 

COLAT=PIC2-RLAT 
XP=FECEIC*COS  (PICK)  *SIN  (CCIAT) 

YP=FSCIIC*S1N (RLCN) *SIN (CCI AT) 

ZP=F  EC  EIC*COS  (CCIAT) 

C CCMFCTE  TBE  MAGKITUEES  OF  CP,  CT  ANt  TR 

CT=SQRT  (1T*XT-*YT*YT-*ZT*ZT) 

CR=SQRT  (XR*XR*YF*YR*ZB*ZB) 

TR=  SQPT ( (XR-XT) **2 * (YB-YT) ** 2>  (ZB-ZT ) ♦♦ 2 ) 

C CAICOIATE  THB  A JIEOTHAI  ANGIE 

IF(ANGTF.NE.O.Q)  GC  TC  12C 
AZ1  = 0 . C 

IF(TLAT.GT.RLAT)  AZ1=PI 
GO  TO  55 

120  SINRTN3SIN(ANGI)*£IS  ( A NGE) /SIN ( A NGTB ) 

CO S FT N= (COS  (ANCB) -COS  (ANGT) *CCS  (ANGT  F) )/  (SIN  (ANGT) *SIN  (ANGTR) ) 

AZ1  = AFS1K  (SI N FT  R ) 

IP (SINFTN.LT. 0,0)  GO  TO  45 
IF  (COSETR.LT. O.C)  AZ 1=PI-AZ 1 
GO  TO  5C 


T. 
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45  I?  (CCSETN.LT.  C.C)  AZ1*-EI-A71 

50  IF  (TLCN.GT.  BLCH)  AZ  1»PIT 2- AZ  1 

C COMPUTE  1 HE  ELEVATION  ANGIE  FROM  TRIANGLE  TCE 

55  ARGIJM  = (T  F**2'*C1**2-CR**2)  / (2.*-TB*CT) 

IF (ARGUM.GT.  1.0)  ARGUM=1.0 
IF  (ARGUB.LT. -1.C)  ABGUM3- 1.0 
BETA=ARCCS (ARGUK) -PI 1 2 

75  NSC1  = 1 

APPCX  (1,1,1) =EE 1 A 
TLATE=TIAT*CFGS 
TLCKE=TICN*EEGS 
FLATE=BLAT*DEGS 
RICNE=FICE*DEGS 
FHO  1=PfiO*EEGS 
THO  1=THC  *EEGS 
ERIKT  27 

27  FORMAT  ( 1 E 1) 

PRINT  3C,TLATC,TI.CNt,XNlBH 

3C  FORMAT  (11, 44 HI  HE  TEANSMITTIR  GECC-RAFRIC  CCCEEINATES  ARE  : ,4X, 
14H1AT=,F6. 3,2X, 5HI0RG=, F 6 . 3,2X,7HHIIGHT=,F6 .2,3H  KM) 

PRINT  31,RLATE,RLCNE,N  (4C) 

21  FORMAT  (11, 41HTHF  RECEIVER  GEOGRAPHIC  COCREIK ATFS  APE  : , 4X, 
14HLAT-,Ff.3,22»5H10NG=,F6.3,2X,7HHEIGHT=,Ffi.2,3H  KM) 

PRINT  1S,PHC1,TH01 

19  FORMAT  (IX, 44HTHE  TRANSMITTIR  GECMAGNFTIC  CCCBEIKATES  A FE  : , 2X,5HLCN 
1G=,F12.5,3X,€HCCIAT=,B12.5) 

PRINT  2 1 ,GRLON , GRI AT 

21  FORMAT  (11, 41HTHE  RECEIVER  GEOMAGNETIC  CCCREINATES  AHE:  ,2X,5HLCNG  = , 
IF  12. 5, 3X,€HCOLAT=,F12.5) 

PRINT  32, TRANCE  ,TFRFC 

32  FORMAT  (IX, 29HRANGE  AT  TRANSMITTER  BAEIUS  = , F 1 2 . 2 , 21 ,2 BKM  , 5X  , 
127HEREQUENCE  CF  TRANSMISSION  = , F 10 . 4, 2 X, 3H MHZ) 

EEETA=EFTA*EEGS 
AZMTH  = A21  ->DEGS 
PRINT  37, EBITA, AZMTH 

37  FORMAT  (IX, 28HTHE  INITIAL  EI1VATICN  A NGL F= , F8 . 3 , 2X, 7HE EGREES , 5X, 

1 25RAZIMUTH  OF  TRANSMISSION  =,  F 1 2 . 6 , 2X, 7HEFG REES) 

RETURN 

FNE 
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SUFFCUTINE  HCBE 

C JF LAG  = C KEANS  ME  CAN  FINE  AN  APFFOXIKAT!  HI E VATICN  ANGIE. 

C =1  BEANS  WE  CANNOT  FINE  AN  AEEECXIBATE  ELEVATION  ANGLE. 

EIMENSICN  CDMIN  (2  1) 

CIBENSICN  JSOL  (2)  .TEN F B (9 1 , 2) , N E CIN 1 (2)  .JTFKE  (21) 

PEA  L * 8 A,B,C,CELT,DANS(52) , H AIT  ,E1,B2,F3,R4,P5,R6,BE,BI,FJ,DET 
PE  A I *8  A1.E1.C1 

CCBBCK /CONST/  E I , FI  1 2 , PI  E 2 , C EG  S , FA  E , t UB.  (3) 

CCBBCN/EENSC/  E E NS ( 5 2) , HEIT  (52)  .ELBA  NJ  (SI, 3, 2) .APHCX  ( 8 , 2 , 2)  , E B AT  10 
1 .NBAX.NST AFT , JFIAG.NSCL.EEKIN  (2  1)  , 0 JOB  1 
CCBKON  Y (6)  /WW/  ID  ( 1 C)  , W 0 , W (40  C ) 

CCBBCN/E  E NX/  F B ( 1 S , 5 2 ,5) , T HET A ( 1 S)  ,H GT ( 5 2)  , E HI (5)  , FEES  (4) , HL 
CCEFCN/FG2/  L AT KX ,LC N BX , I FT fl X 

CCBBCN/CC  EFF/  A1  (52) .El  (52)  ,01  (52) .BAIT  (52) , FAEOGF, FAPCGB 
EQUIVALENCE (5 AFT HB.W (19)  ) , (TICN  ,W  (14) ) , (FICK.W  (381))  , (1LAT.W  (16) ) , 
1 (PLAT.W  (382)  ) , (EE^A.W  (17)  ) , (TFFFC.W  (2)  ) , (AZ1.W  (18)  ) 

FOOIVAIEKCE  (TFANGF, W (3  85) ) , (EE TAT, k (38 S)  ) , (EIFG.W  (387) ) 
EQUIVALENCE  (P FC , S (37 8)  ) , (T HO  , W (377) ) 

EQO I VALENCE  (ELC N ,W  ( 1 3) ) , (EL  AT , M (1 5) ) , (FC F , S (254 ) ) , (GROUP , H (394) ) 
DATA  1NTSFV/5C/ 

C W (38C)  = 1 BEANS  FC  KING  GFCUND  TC  GRCUND. 

C W (380) = 2 KEANS  EC  KING  GBCONE  TO  SATELLITE  CE  SATELLITE  TC  GFCUND 

C W (SEC) =3  BEANS  FIND  T BE  KINIBUK  GBCUE  PATH 

NNN=W (360) ♦. 1 
GO  TO  (12CC.13CC.140C) ,NNN 
C THE  BIKIK11B  GBCUE  PATH  FCUTINE 

1 4C0  CAI1  GFCCEH 

BETCPN 

1300  CALI  HCKES 

BEIUFN 

1 2 C C PE=E ARTBF 

C SETUF  THE  NUBEEE  CF  HCFS 

N HC  E=  HC  E ♦0 . 1 

C SETUP  THE  FACTOPS  FCB  THE  KIIIOINT  LCCATICN  CP  EACH  HOE  DIVISION 

HOFF  = 1.0/  (2.0  + HCP) 

H0EI=-1.C 
CO  1 1=1, SI 
CO  1 0=1,3 
CC  1 K=  1, 2 

1 ELBANJ (I, J.K) =C.O 
CC  2 1=1,8 

DO  2 J=  1, 2 
CC  2 K=  1 ,2 

2 APFCX (I,C,K)=C.C 
CO  3 1*1,8  HOF 

3 0SC1  (I)  =C 

C SET  UP  THE  NOREER  OF  INTEFVAIS  ECU  THE  EIEVATICN  ANGLE. 

FFATI0=TEPEQ**2 

C CHECK  II  GROUP  PATH  HCBING  IS  NIECEl 

IF <fc  (3S4) .EQ.O.C)  CC  TO  111 
ANGT=E II 2-TIAT 
ANGTF=GBCCP/EAFTHB 
TPANGE=GFCOF 
BAHGE=TEANGE/HOE 
A71  = B (263) 

GO  TO  5CCC 

C CALCULATE  THB  BARGE  BETWEEN  TPA  NSBITTEF  AND  FECEIVEB 

111  ANGL=AES (TLCN-BICN) 

ANGT=PII2-TLAT 

ANGF=EII2-BLAT 
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C OSH  THE  CCSTNF  LAN  TO  FIND  ANGLE  SUETEKCED  AT  EARTH  CENTER 

COST  HE=CCS (ANGT ) *COS  ( A KG  R)  ♦ SIN  ( ANGT ) *SI K (ANGE) *COS  (ANGI) 
ANGTR=AECCS  (CCSTHI) 

TEAKGE  = ANGTR*  (EAPTHE+W  (2C)) 

C DIVIDE  THE  TOTAL  RANGE  E Y THE  NOHBER  OF  HCES  NEEDED. 

PANCE=TFANGE/ECE 

r 

C THIS  FCRTION  CF  TEE  CODE  SELECTS  A UNSET?  EFCEILF  THAT  IS  CLOSEST 

C TO  TEE  NIC  POINT  BETWEEN  THE  TFANSHITTFF  AND  RECEIVER  ( AVLON , AVLAT) 

C COORDINATES 

IF  (ANGTF  .NE.O.O)  GC  TC  4225 
PTN=C. C 

IF(TLAT.CT.RLAT)  RTN=PI 
GO  TC  5CCC 

<4  22  5 SINFTN=S3N  (ANGI)  *STN  (ANGRJ/SIN  (ANGTF) 

CCS  FT  N=  (COS  (ANGE) -CCS (ANGT) *CCS  (ANGTF) ) / (SIN  (ANGT) *SIN  (ANGTR) ) 

RTN  = APSIN  (SINFTK) 

IF  (SINRTN.IT. C.C)  GC  TC  4500 
IF  (CCSFTN.LT. C.C)  FTN=FI-FTN 
GO  TC  5CC0 

450C  IF  (CCSFTN.LT. C. C)  RTN=-FI-PTN 
5C00  DC  80CC  0 HO  P=  1 , K HCP 
NSOI=0 

HCE3=HCEI+2. 0 

COSANG=CCS (HOE I*HCPF* ANGTR) 

SINANG=S3N (HCII*HCPF* ANGTF) 

C THIS  FCFTION  IS  FCR  GRCOF  PATH  F.CHING 

IF  (t  (354) .EC. C.C)  CC  TC  5CC5 
AZT=  A Z 1 

IF(AZT.GT.FI)  A?T=FIT2-A2T 

CCSNM=CCS  (ANGT)  *CCSANG4SIN  ( ANGT ) *SI N ANG * CCS  (AZT) 

AVLATG  = I 3C2-AECCS  (CCSNH) 

TNH  = A ESIN  (SIN  ( AZT ) * S IN  A NG/S  IN  ( A FCC  S (CCSKH)  ) ) 

AVLCNG=TICN>TNn 

IF  (AZ1.GT.PI)  AVICNG=TLCN-TNfl 
GO  TO  9 

5C05  COSNH=CCS  (ANGT) *CCSANG  ♦ SIN  ( A KGT ) * S I K A NG  *COS  (RTN) 

AVIATG=E3E2-AFCCS  (CCSNH) 

TNH=ARSIN  (SIN  (RTN)*SI NANG  /SIN  (AFCCS  (CCSNH) ) ) 

IF  (TLCR-FICN)  4, 4, 5 

4 AVLCNG=1ICN4TNH 
AZ1=FTN 

GC  TO  6 

5 AVLCNG=TICN-TKP 
AZ 1 = PI T 2-RTK 

6 CCNTINOE 

C 

C TRANSFCFE  THE  HIDFCINT  TC  GECH AGNET3C  CCCRI3NATFS 

9 SP=SIN  (FLAT) 

CF  = SIN  (FII2-PLAT) 

SINDPH=S3N  (AVICNC-PICN) 

C0SDPH=S3N (PIE2  - (AVICKG-FLCN) ) 

SL*SIN  (AUATG) 

CL=  S IN  (EIC2-AVL ATG) 

AVLCN  = ATIN2  (SIND P E*CL ,C0 S t PH *SP *CL-C F *SI ) 

AVCLAT= ARCCS  (C0SDFH*CF*CI4SF*SL) 

IF  (K  (39  4) .NF. C.C)  GC  TC  51 

C TRANSFCRP  THE  BECEIVER  CCCFDINATES  TC  GECHETRIC  COORDINATES 

SINEEH=£IR(RICH-FICK) 

CCSDFH=S1N  (FID2-  (RLCN-PLCN) ) 

SL=SIN  (FIAT) 
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CL  = SIN  (F1C2-RIA1) 

GRLCN=A1AN2  (SIKEPH*CI,CCSDFH*SE*CL-CF*Sl) 

GPL AT= AFCCS  (CCSCPE*CP*CI*SF*SI) 

GRICN=GFICN*DEGS 
GPL A T = G PI AT*D  EGS 

C T5MFCRAFY  PRINTING  CF  THE  PIE  FCINTY 

91  GCLCNG=AV1CNG*EEGS 

GOLATG=AVIATG*EEGS 
AVLCND=AVLCN*EEGS 
AVLATD=A\CLAT*tEGS 
FRINT  9911 

9911  FCRPAT  (22 , • Pit  ICINT  CCCFtlNATES,  GECGFAFHIC  ANE  G EC M A GN'T IC  ' /) 
PRINT  S912, GCLCNG,GCIATG,AVICND,AVIATt 

9912  POP  PAT (22, 'GECGFAFHIC; • , 2X , • 1C N C-= • , F E . 2 , 2X , • COI AT* • , FP . 2 , 7X , 'G EC M A 
1GNETIC: • ,2X, ' LCNG*'  ,FP.2,2X  , 'CCIAT*'  ,F8.2) 

DPH I = AE  £ (PHI  (2) - FHI  (1) ) 

KK=ICNMX 

DO  610  K=1,LCNP> 

DIE!  1 = AES (AVLCF-EFI ( N)  ) 

IF(EIFFI-EFHI)  620,615,610 
6 1 E NN=  N 

GO  TC  € 5 C 
62C  KK=K 

IF(K.GE.ICKPX)  GC  TC  630 
EIFF2=AF£  (AVLCN-EH  ( F + 1 ) ) 

IP (EIFE2.IT.DIFF  1)  KK=K+1 
GC  TO  63C 
610  CONTINUE 

C HE  CANNOT  FIND  A IONGITUEF  CICSF  ENOUGH  TC  THE  PIE  E Cl  NT . 

HRITE  (6,625) 

625  FORMAT  ( IX ,82HTBE  GIVEN  DENSITY  FFCFILI  ECES  NCT  INCLUEI  THE  PIE  EO 
1 1NT  LONGITUDE  EETKEEN  T ANE  F) 

GC  TC  5CC 

630  DTHETA=AES(THETA  (2) -THFTA  (1) ) 

IL= I ATP  X 

EC  635  1=1, LATHS 

DIFF1  = AES (AVC1AT-THETA (I)  ) 

IF (EIFF1-ETHETA ) 695,690,635 
690  LL=L 

GO  TC  6 6 C 
695  LL=L 

IF  (L.GE.IATMX)  GC  TC  660 
DIFE2  = AE£ (AVCLAT-THET?  (1*1) ) 

IF  (EIEE2.LT.DIFE1)  11=1+1 
GO  TC  660 
635  CCNTINC  E 

C CAN  NCT  FIND  A I A II TC  EE  CLCSE  ENOUGH  TC  THE  PIE  POINT 

HRITE  ( 6 , 6 5 C ) 

650  FORMAT  (IS, 83HTHE  GIVEN  EENSITT  PROFILE  DOES  NOT  INCLCDE  THE  MID 
1 POINT  LATITUDE  EETHEEN  T ANE  F) 

GC  TC  3CC 

C EXTRACT  THE  DENSITY  AT  THE  PIE  POINT  ANI  THE  CCRF ESPON El NG  HEIGHT 

660  DC  665  I=1,IH1BX 

DENS  (L) =FH  (LI, I ,KK) **2 
DANS  (L) = DENS  (L) 

HAIT  (I) =EGT  (L) 

665  HEIT (L) =EGT  (1) 

C FIN!  THE  HEIGHT  CN  HFICH  TEE  PAXIHOP  DENSITY  CCCDRS 

DHEIT  = B EIT ( 2) -E  E IT  ( 1) 

TEH P= DENS  (1) 

N H AX*  1 


I 

1 
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EC  670  I=2,LH1BX 

IF  ( t EN S ( I) .Lf.TIBE)  GC  TO  €70 

NMAX=L 

TEHF=EES£  (I) 

670  CCNTINCE 

HH A7=  HE  IT  |S HA X ) 

FVHAX  = £CFT  (CINS  ( N £ A X ) ) 

C ASSUME  AN  INITIAL  EIFVATICN  ASGIE  Cl  ZEFC 

EFT  AF  = C . C 

IF (TFFEC-FVHAX)  330,220,320 
3 30  EETAT  = Fir2 

GC  TC  2 MO 

C COMPUTE  THE  EIEVATICR  ANGIE  FCE  A TFAFEEC  FAY 

320  TEMFA=(EARTHH4BEAX)4SCBT(1.C-(PVEAX«*2/ERAT1C))/EAETHR 
IF  (TEMFA-1.3)  22  1,32  1,400 

321  BETAT  = AFCCS  (TFEFA) 

340  TLATE=TIAT*tEGS 

TLCNt=TICN*DEGS 

RLATD=RLAT*CEGS 

BLCKD=FICN*CEGS 

PHC1=PHC*EEGS 

TH01=TEC*LEGS 

PRINT  29 

29  FOF  K AT  |lHl) 

FRIST  3C,TIATI,TICNI  ,'i  ( 2 C ) 

30  FORMAT  (IX, 44HTKI  TRANSMITTER  GECGRAEHIC  CCCEITNATFS  API  : ,4X, 
14HLAT= ,FE . 3 , 2X, 5 HIC  KG=, E8 • 3 , 2X, 7HHBI GHT3 , FB • 2, 3H  KH) 

IF  (W  (39  4) .SF.C.C)  GC  TC  3 C 1 
PRINT  31,RIATC,FLCSC,ll  (40) 

31  FORMAT  (IX, 41HTHE  RECEIVER  GICGRAFHIC  COCBLINATES  ARE  : , 4X, 
1UHLAT=,F8.3,2X,EHLONG=,F8.2,2X,7BHEIGBT3,Ffi.2,3H  KH) 

301  PRINT  19,FH01,THC  1 

19  FORMAT  (IX, 44BTHF  TRANSHITT  IB  GECKAGSETIC  CCCBCINATES  ARE:, 2 X , 5HLCN 
1G=,F12. 5,3X,6HCCLAT*,F12.5) 

IF  (S  (394) .HE. 0.0)  GC  TO  3211 
PRIST  21,GRLCK,GRIAT 

21  FORMAT  (IX, 41HTBE  RFCEIVIR  GECHAGNET1C  CCCRIIKATES  ARE: ,2X,5HLCNG=, 
IF  12. 5, 3X,6HCOIAT=,F12.5) 

3211  FPINT  22,1BANGI,TFREQ 

32  FORMAT  (IX, 2SBRANGI  IT  TBASSHITIIF  BAEIUS  = , F12. 2, 2X, 2HKH, 5X, 

127HFREC0ESCY  CF  TFASSHISSICN  3 , P 1 C .4 , 2 X , 3 K HHZ ) * 

N ST  AP  T= 1 

C CALCULATE  CCEFF ICIEST  S ARC  STCRI  THE  H IN  AFFAYS  A1,E1,C1 

87  I=NSTAFT 

J=N  ST  AFT  4 1 
K=NSTAFT42 
L=NSTABT43 

IF  ( K M AX~  2)  1000,1000,10 

C THERE  ARE  HOPE  THAN  1BHEE  FCINTS 

10  R1=EE  4HAIT(I) 

R2=PE  -»HAIT(J) 

P3=FB  4HAIT(R) 

F4=R  3-F  2 
R5=  F 3-  R 1 
R6=P 1-F  2 
LC2=2.CC0 

C CALCULATE  THB  COEFFICIENT  FOR  THE  FIRST  THREE  FCINTS 

DET=R4*R5*R6/  (B  1* B2 * R 3) 

A=  (-R1*H1*B4*DANS(I) 4R2*B2*R5*C  ASS  (J) 4B 3 *F 3 * R6*LANS (K) )/(DET*R1*R2 
1 *R  3) 

B=  (F1*R  1*  (B3*P3-P2*F2) * E AN  S (I) -F2*B2*  (B2*R3-R1*R1) *t  ANS  (J) -B3*P3*  ( 
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1R1*F1-B2*R2)*DANS(K))/|rEl*5l*R2*B3) 

C=  (-R1+3U*DANS(I)  ♦R2'*35*EANS  ( J)  +R3*R6*CANS  ( K ) ) / LET 
CELT= -E/  ( R 3 * R 3 ) -CC2*C/  (R3»*3) 

A 1 ( 1 ) = A 
El  (1)  = E 
Cl  (1)=C 
M = 1 

DC  73  I=L,NHAX 
M = K + 1 

BJ  = FE  + H A IT  ( 1) 

BI=EE  + HAIT  (I-  1) 

C CALCULATE  THE  CCFFFICIENT  A,E#C 

DET=  (BJ-B1)  **2/  ( (BI**2) *B0) 

A=  ( F I * R I * (RI-RJ) ♦CELT+RI*  (RI-CC2*RJ) * C A N S (1-1)  ♦FJ*RJ*LANS  (I)  ) / ( C FT 
1*RJ*RI**2) 

B=  (II*  (F<J*HJ-RI*RI)  *IELT-CC2*SJ*RJ*  (CANS  (I) -CANS  (1—1 ) ) ) / (CET*RI*RJ 
1) 

C=  (FI*  (HI-PJ)  *tELT-*FJ*  (CANS  (I)  - CANS  (1*1)  ) ) / C E T 
CFLT=-E/  ( B J * R J) - C E 2*  C/  (R J **  3 ) 

A 1 (R)  = A 
E 1 (M)  = E 
Cl <«) =C 

73  CONTINUE 

C CALCULATE  THE  PANGE  AND  GBCUP  RATH 

CALL  PITT  (CRP  ,CGF  E,  F El  A E) 

86  CALI  FIT!  (CRT, CGPT, EETAT) 

IF  (JFLAG.EQ.O)  GO  TC  88 
C DECREMENT  THE  FENETFA1ICS  ANGIE. 

EETAT=EElAT-0  .«C*FAC 
GO  TC  86 

C CHECK  IF  THE  TRANSMISSION  EBECUENCY  IS  GFEATEB  THAN  FC 

88  IF  (TFBEC-IVMAX)  92,62,89 

C CORRECT  TEE  TBABPING  ANGIE  EETAT 

86  CRT  1 = CB  T 

CGPT  1=CGt I 
EETAT1=E!TAT 

C INCREMENT  THE  ANGIE  BETA!  BY  C.1  IEGREE  AN  C CHECK  THE  SLOPE. 

EETAT=EETAT*0. 1C*  BAD 
CALI  Fill  (CRT, CGPT, EETAT) 

IF(UFIAG.EQ.O)  C-C  TC  95 

EETAT  = EETAT  1 

CBT  = CRT  1 

CGPT=CGPT1 

GO  TO  92 

95  IP (CRT. IT .CBT1)  GC  TC  89 

C HE  HAVE  THE  MAXI  ROM  AKC  RINIHUM  ELEVATICN  ANGLES  AND  CC P RE SPC NC I NG 

C RANGES.  IIVIDE  THE  ELEVATICN  ANGIE  FANGE  INTC  INTERV,  THE  NOREFfi 

C OF  INTEFVALS. 

92  KINT=INTIEV*1 

FLPANJ  (1,1,JBCF)=EETAF 
EIRANJ  (1,2, JHCI)=CBF 
ELRANJ<1,3,JHOP)*CGFE 
FLBANJ  |K1NT,1  ,JHCF)=BETAT 
EIRANJ  (K1NT,2,JFCF) =CBT 
ELRANJ  (R3NT,3, JFCF) =CGFT 
DINT=(EITAT-BET»E)/INTERV 
C 

C GENERATE  THE  RANGES  CCR F ESFC NCI NG  TC  THE  INTERVAL  VALUES  OF  THF 

C ELEVATICN  ANGLES. 

CO  110  IX2,INTIBV 
BET  A 1=  (1-1)  *EIN1 
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CAII  FIT!  (CP,CC-F,  EE1AI) 

ELRANJ  (I,1,JHCF)=EETAI 
ELPANJ  (I,2,JHCE)=CB 
FIFANJ  (I, 3, JHCF) = CGF 
110  CON  1 1 N Cl 

C LOCATE  TFE  HAXIPA  ANT  PTNIFA  CF  THE  ELF  VATIC N- FANGF  CT1FVE 

C INITIALIZE  THE  VECTCF  CEBIN 

CO  1 1 1 C 3*1,21 

1110  CPB1N  ( I ) = C • C 
TFHF=ELFANJ  (1,2,JF0F) • • 

JJJ=1 

JJ=1 

CBHIN  (JJJ)=ELPAFJ  (1,1, JHCF) 

JTEPF  (1) =1 
PO  1111  1=2, BINT 
GO  TO  (1 1 12,  1 1 13)  , JJ 

1112  IP  (FLPANJ  (I, 2, JHOF) .LI.TEBF)  GC  TC  1116 

C HFPLACE  AND  STCFE  TEE  ELEVATION  ANGLE  VALDES 

J J=  2 

JJJ=JJJ*1 

CBHIN  (JJJ) = FLPANJ  (I- 1,1, JHCF) 

JTEPF  (JJJ) =1-1 
GC  TC  1118 

1113  IF  (ELFAKJ  (I,  2,  JEGF)  .GT.TEBE)  GC  TO  1116 

C FEPIACE  THE  INCIX  VALDE 

JJ=  1 

JJJ=JJJ*1 

DEHIN  (JJJ) = ELBA  KJ  (I -1,1, JHCF) 

JTEPP  (JJJ) =1-  1 
1118  TEKF=ELFANJ  (I, 2, J EOF) 

1111  CCNTINDE 
JJJ=JJJ*1 

CBHIN  (JJJ) =BETAT 
JTEPP  (JJJ) = KI NT 
DO  1147  AQ*  1 , JJ J 
1147  DCHIN  (KC)  = CBHIN  (KC)  ‘FIGS 

PRINT  8733,  (CCniN(NC) ,B 0=1, JJJ) 

C REHCVE  SHALL  CSCIILATICRS  EPCH  THE  LATEES  CE  THE  D-B  CCPVE 

C ASSURE  150  KH  CSCILIATICKS  CP  LESS  TC  EE  PEPCVEC 

JJR=1 
JJ=  1 

DO  1130  1=2, JJJ 

C RETRIEVE  THE  INDICES  FGH  CCHEABISCN 

Jl  = JTE  BE  (JJ  B) 

J2=JTEEF  (I) 

DIE FR=E I B ANJ  (J 1,2, JHCF) -ELPANJ (J 2, 2, JHCF) 

GC  TO  (1135,1140) ,JJ 
C D-E  CDPVE  SLOFING  CCHNHAPCS 

1135  IF (DIFFB.GT. C.C)  GC  TC  1137 

IF  (ELRANJ  (J2,2,JHCP)  . IT. ELF ANJ ( J1 , 2 , JHCF) ) GO  TO  1130 

DBH1N  (OJB)  = C E E I N (I) 

JTEHP  ( J JF) = JTE H F (I) 

GO  TC  1130 

1137  IF  (ABS  (C3EFB) . IT.  150.0)  GC  TO  1130 
J J=2 

JJB  = J JR*  1 

CBHIN  (JJB) =DBHIK  (I) 

JTEPF  (JJB)  = JTEPF  (I) 

GO  TO  1130 

C D-E  CORVE  SLOFING  UFBABDS 

1140  IF  (CIEEF.it. O.C)  GC  TC  1143 
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IB  (EIRANJ  (J2, 2, JHCF)  .GT. EIFANJ  (J1, 2, JHC E) ) GC  TO  113C 

DBMTN  (JJF)  =CEBIMI) 

JTEMP  (JJF)  =JTEMF  (I) 

GC  TC  1120 

119  3 IF  (ABS  (D1FFR) . IT.  150.0)  GC  TC  1130 
JJ=1 

JJR  = OJR*  1 

DFMTN  (JJR)  = CBMIN  (I) 

JTEMP  (JJF) =JTEME  (I) 

1130  CONTINUE 

DO  1196  KQ=1,JJH 
1196  EDHIN (RC) =DBHI»  ( K C) *CEGS 

PRINT  8723,  (ECPIK  (PC)  »KC=1,0JR) 

DJJK  1 = 0 JF-  1 
FRINT  119 

119  FORMAT  (2X,21HTHI  FANGE-EETA  VALLES) 

PRINT  115 

115  FORMAT  (1 X,9HPCINT  NG.,1GX,6HFL  I EG, 1GX, EHRANGE  K M , 1 0 X , SHG . P AT H KM) 
L=  2 

K=3 

IF  (W  (3S9) .EQ.O.C)  GC  TO  116 

L=  3 

K=2 

11?  DC  116  1=1, KIKT 

EETAC=ELRANJ  (1,1, JHCF) *DEGS 

116  FRINT  117,I,BBTAD,EIKANJ(I,L,JHCP)  ,ELRANJ  (I,K,JHCP) 

117  FORMAT  (1X,I6,8X,F  12. 3,5X,F  12.  3,7X,F12. 3) 

C CHECK  TEE  GIVEN  RANGE  AGAINST  THE  CAICUIATEE  RANGES  TC  FIND  THE 

C NOKEEP  CF  SOLOTICNS. 

K FL  A G=  0 

C SET  A FLAG  EQUAL  TO  ZERC  SO  THAT  IF  TFF  3 NT FF EOLATIC N DCFS  NCT 

C CON  VERGF  WITHIN  TEN  TRIES,  THERE  IS  K SOLUTION  FOR  THAT  ANGLE 

C (MFIAG) 

IF  (FLRANJ  (1,2,JE0E)  .IT. RANGE)  K FLAG=  1 
DC  120  1=2, HINT 
IF (KFLAG.EQ.  1)  GC  TC  180 

C CHECK  TEE  NEXT  RANGE  IF  LAFGF5  THAN  GIVEN  RANGE 

IF (ELRANJ  (I ,2 ,JHOE)  ,GT. RANGE)  GCTC  12C 
C INCREMENT  NSOL  ANE  HC  ME  THE  SCLDTICN  TC  FINE  TEE  APPROXIMATE 

C ELEVATION  ANGLE. 

156  LB= (ELRANJ (1,1, JHCP) -El  BAN J (I-  1,1, JHCF) )/9.C 

BETAI  = FIF ANJ  (I-  1,  1, JHCP) 

CP.=  ELRANJ  (1-1 ,2  , JF.OE) 

MFIAG=C 
DO  127  J=1,  10 
IF  (KFLAG.EQ.  1)  GC  TC  129 
IF  (CR.LT. RANGE)  GC  TO  128 
125  ELRANJ  (1-1,1, JHCP)=EETAI 
ELRANJ  (I-  1, 2, JHCP) =CR 
EET  AI=  EFT  AI *DB 
CALL  FITT  (CH,CGE,  EETAI) 

GO  TO  127 

128  ELRANJ (I, 1, JHCP) =BETAI 
ELRANJ (1,2, JHCP)=CR 

GO  TO  126 

129  IF (CF.GT. RANGE)  GC  TC  12e 
GO  TO  125 
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IF  (PETAI.GT. EBMIN  (JK)  .ANE.EETAT  .IE. IEHIN (JK* 1) ) GC  TO  1200 
1275  CONIINE E 

1 28C  GOTO  (1281, 1283, 1265, 1267, 1289, 1291, 1253, 1255), JJK 

1281  PRINT  1262 

1282  FORMAT  (2), 62  EC  ANN  CT  FINE  AEPFCXIMATI  SCiOTICN  FOR  FIRST  LAYER  LC  N 

1ANGIF  ) 

GO  TC  171 
129.3  PRINT  1260 

1280  FORMAT (2X,62HCANNCT  FINE  A EF  PC  X IMAT  F SCICTICN  FCR  FIRST  LAYEF  HIGH 
1 ANGIE  ) 

GC  TC  171 

1285  PRINT  1266 

1286  FORMAT (2X,62HCANNCT  FINE  AEPFCXI PATH  SCIUTICN  FOR  SECONE  LAYER  LOW 

1 ANGIE  ) 

GO  TC  171 

1287  PRINT  1266 

1288  FORMAT  (2X,62HCANNCT  FINE  AEPRCXIFaTF  SCIUTICN  FCR  SFCCNE  LAYFF  HIG 
18  ANGLE  ) 

GO  TO  171 

1289  PRINT  125C 

1290  FORMAT (2X,62HCANNCT  FINE  A EFFCXIMAT  f SCIIT1CN  FCR  THIPE  LAYER  LCW 

1 ANGLE  ) 

GC  TC  171 

1291  PRINT  1262 

1292  FORMAT  ( 2 X , 6 2 RC A K N CT  FIND  AIPFCXIFATE  SCIUTICN  FCR  THIFC  LAYFF  HIGH 

1 ANGLE  ) 

GO  TO  171 

1293  PRINT  1250 

1290  FORMAT ( 2 J ,6  2 HC  A N NOT  FIND  AEPFCXIMATI  SCIUTICN  FCR  FCUFTH  LAYER  LOH 
1 ANGLE  ) 

GC  TO  17  1 

1295  PPINT  1256 

1296  FORMAT ( 2X, 62HC A NNCT  FINE  AEPFCXIMATI  SCIUTICN  FCR  FOURTH  LAYER  HIG 
1 H ANGIE  ) 

GC  TC  171 

C USE  LINEAR  I N T I E ECL A TIC N R A N GE= !♦ C*F ETA 

126  IF  (ELRANJ  (1-1,1 ,JHOE)  .FC. ELPANJ  (1,1, JHCE)  ) GC  TO  175 

Q= (ELRANJ (1-1 ,2, JHOP) -FLHASJ  (I,2,JHCF) ) / (EIFANO (1-1,1 , JHCE)  - 
1 ELF  AN J (I  ,1  , JHCE) ) 

IF(C.FC.C.O)  GC  TC  175 

P= ELRANJ  (I-1,2,GHCP) -Q* FI  FA  NO  (I- 1,1,  JHCE) 

BET  A 1=  (EANGE-E) /C 
CALL  FITT  (CR,C€F, EFTAI) 

IF  ( JF I AG)  1 3C  , 13C  , 175 
130  DIFE=RANGF-CR 

IF(EIFF)  135,160,105 

135  IF  (EIFI  + I IFG)  IOC, 163,160 

100  IF  (KFIAG.FQ.  1)  GC  TC  106 

136  FLPANJ  (1-1,1, JHCE) -EFTAI 
ELFANJ  (I-1,2,JECP)  = CR 
MFIAG=HFIAG*1 

IF  (MFIAG.GF.  10)  GC  TO  175 
GO  TC  126 

105  IF  (EIFF-EIFG)  1 60,160,150 
150  IF (KFLAG. HQ.  1)  GC  TC  136 

106  ELPANJ (1,1 , JHCE)=EE1AI 
ELPANJ  (I ,2, JHCF) SCR 
HFIAG=EFIAG*  1 

IF (MFLAG.GB.  10)  GC  TO  175 
GC  TC  126 

C HE  HAVE  FOUND  TEE  AEEROXIMATF  ANGIE 
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160  NSC  1=  NS  C I ♦ 1 

J SOL  (JHCE)=NSCl 
A PEC  X (NSCI,  1 , JH  CP ) = E E T AI 
APRCX  (NSCL, 2, JHCP) =1 
DRET  A = E ETAI«DEC-S 
DO  1160  JK=1,JJJM1 
0 JK  = J K 

IF  (PETAI.  GT.  EBH1  N (JK)  .ANE.  EETAI.IT.  rEMIN  (JMl)  ) GC  TC  1170 
1160  CONTINUE 

1170  GC  TO  ( 1 1 7 1,  1173,1175, 1107,1179, 1161, 1182, 1165)  ,JJK 

1171  PRINT  1 172, NSCI  , C EET A ,CR  ,CGP 

117  2 FORMAT  (2 X , 2 8H APPRCXT M AT E SOLUTION  NU  MBE  F = , 1 3 , 2X , 2 2H FI FST  LAYER  LO 
1W  ANGLE  , 10H,EL.ANGLE=,F8.3,2X,6HPANGE=,F8.3,2X,7HG.FATH=,F8.3) 

GC  TO  171 

1173  PRINT  1 174, NSCL, EFETA,C5, CGF 

1174  FORMAT  ( 2X , 2 8 H A F P FOX  IN  AT E SOLUTION  NUMEE  E = , I 3 , 2 X , 2 3H F I FST  LAYER  HI 
1 GH  ANGIE  ,10H,EI.ANGIE=,FS.3,2X,6HFANGE=,F6.3,2X,7HG.PATH=,F8.3) 

GO  TO  171 

1175  PRINT  1176, NSCI  ,DEETA, OF, CGC 

1176  FORMAT  (2X,28HAPFRCX1MATE  SCLCTICN  NUMBFF=  , I 3 , 2X , 2 3H S F CC N C LAYER  L 
ION  ANGLE  ,1CH,EI. ANGLE=,F8. 3 , 2X , 6H F A NGE= , F8. 3, 2X,7HG.PATH=,F8.3) 

GC  TC  171 

1177  PFINT  1178, NSCI,  CFETA, OR, CGF 

1178  FORMAT  ( 2 X , 2 8 H A E E R C X I M AT  E SOLUTION  NCMBEF=,  13, 2X,  24  !i  SECOND  LAYFE  HI 
1 GH  ANGLE  ,10H,EI.ANGIE=,P8.3,2X,6HRANGF=,F8.2,2X,7HG.PATH=,Fe.3) 

GO  TC  171 

1179  PFINT  1 1 g C , NSCI, CEETA,CR, CGF 

1180  FORMAT (2 J, 26HAFPRCXIMATF  SCLCTICN  N U M E 5 F = , I 3 , 2X ,2 2HTH I F D LAYER  LO 
1W  ANGLE  ,1CH,EI.ANGIE=,F8.3,2X,6HSANGE=,F6.3,2X,7HG.PATH=,F8.3) 

GO  TO  17  1 

1181  PRINT  1162, NSCL  ,DEETA,CF,CGP 

1182  FORMAT  (2X, 20HAFFBCXIEATE  SCLCTICN  NC  MEEF=  , I 2 , 2 X ,2 3HT H L RD  LAYER  HI 
1 GH  ANGLE  , 1 7 H , E I . A NG I E= , F8 . 3 , 2 X , 6 H R A NGE= , F 8 . 2 , 2X , 7HG . P AT H= , F 6 . 3) 

GC  TC  171 

1183  PFINT  1164,  NSOI ,CEETA,CR, CGF 

1184  FORMAT  (2 X , 2 8E APPRO XT  HATE  SOLUTION  NUMBEF=  ,12, 2X,23H FOURTH  LAYER  L 
10W  ANGLE  ,10H,EL.ANGLE=,F6.2,2X,€HRANGE=,F6.2,2X,7HG.PATH=,F6.3) 

GC  TC  171 

1185  PFINT  1166, NSCL,  EEE1A,CF, CGP 

1186  FORMAT  (2X, 26HAPFHCXI PATE  SCLCTICN  NU ME E F= , I 3 , 2X  , 2 4HF0U FTH  LAYER  HI 
1 GH  ANCLE  ,10H,II.ANGIE=,E8.3,2X,6HRANGE=,F6.3,2X,7BG.PATH=,F8,3) 

171  IF (KFLAG.EQ. 3)  ILI=1 
IF(KFLAG.EQ.I)  ILI=C 
KFLAG=III 
GO  TO  120 

C CHECK  IF  THE  NEXT  RANGE  IS  SMALL  ER  THAN  GIVEN  RANGE 

180  IF(ILRANJ(I,2,CF.OF)  .IT. RANGE)  GC  TC  120 
GC  TC  156 
120  CONTINUE 

280  IF  (NSCI.GT.G)  GC  TO  300 
PRINT  2 8 C 5 

2805  FORMAT  (2X,34HTFFBE  ARE  NC  APPROXIMATE  SCL0T1CNS  ) 

GC  TC  3 G C 
1000  PRINT  1CC5 

1005  FORMAT  (IX, 47HTEEPE  ARE  LESS  TEAN  THE  EE  ECINTS  IN  THE  DENSITY) 

GC  TC  2CC 
400  PRINT  4 1 C 

410  FORMAT  (IX, 25HTHI  FREQUENCY  IS  TCC  HIGH) 

300  CONTINUE 
8CCC  CONTINUE 

C CHECK  TC  SEE  IF  IT  IS  CNE  BCP  MCCE 
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C 


C 

9 C 5 0 
C 


806  0 


C 

8070 

C 


C 

C 

908  5 
8C8C 
C 


8100 


8111 

C 


8110 

e 1 2C 

c 

c 


8130 

C 


IP(NHOE.?C*  1)  CC  TC  1 2000 

CHECK  If  THE  HOPS  A F F SYHHETFIC  SITHIN  I CFR1AIN  TCLEP ANCE 

DO  8050  I=1,KHCF 

IF (OSOI  (I) . EO.C)  GC  IC  8050 

1HEFE  ARE  SOLUTIONS 

GO  1C  8C€G 

CONTINUE 

SF1  THE  CCNTPCI  NSOl  1C  ZfPC  CSfcCTIPG  NC  SCLUTICNS 
NSC  I=C 
GO  1C  12CC0 

CHECK  FOB  SY8FETF1C  ECFS 

KHCE=KHCE-1 

CO  6C7C  I=1,KEC£ 

IF (JSOL  (I) . EQ.J'Ol  (1  + 1) ) GC  1C  €070 
THE  HCES  APE  NCI  SYF.EFTBICAl 
GC  TO  E ICC 
CONTINUE 

CHECK  IF  THE  flEVATICN  ANGIES  AEE  CICSE  1C  EACH  OTHEP 
KFCI NT=OSCL  ( 1) 

ONE  EEGFIE  SEE AFA1IC  B FAXIFUH 
XXO=1.C*E  AE 
DO  8080  1=1 , KEC  J NT 
HTFFE=AFFCX  (1,1,1) 

DC  €185  0=2, NPCE 

IF (ABS  (FTEHP-AEFCX  (1 ,1 ,J) ) .IE.XXJ)  GO  1C  8C85 

THE  HOFS  API  NOl  SYFKFTPIC  SINCE  THE  EIEVA1ICN  ANGLES  APE  NCI 

CLOSE  1C  E AC P C1FE3 

GC  IC  € 1C  0 

CCN1INDE 

CONI INC  E 

THE  HOPS  ARE  SYPFETFIC 
N SOL  = J SCI  (1) 

GC  10  1 2 C CO 
DO  €120  0=1, NH C E 
00=1 

TEHEP (OJ ,0) =ELRANJ<1,2,0) 

XJ= JO*F  A C 

CO  81 1C  1 = 2,KIN1 

IF (ELBANG  (I,  1,0) .LT.XO)  GC  IC  €110 
INTER  EC  I HE  LIKEABLY  CN  THE  FANGE 

SLCFE=(PLRANO(I-1,2,J)-EIRANJ(I,2,O))/(EIRAN0(I-1,1,G)- 
1ELPANJ  <I,1,J) ) 

CPCSS=ELBANJ  (I- 1 , 2, J) -SLC FE*ILP A NJ  (1 - 1 , 1 , J ) 

TEH  PE  (JJ41, J) =SL0FE4X J4CBCSS 

OJ=OJ4l 

XJ=GO*F  A E 
GC  TO  €111 
CCNTINOP 
NPOINT ( J) =JJ 
CONI INC! 

FINE  THE  RUBBER  CF  SCLUTICNS  EY  CONE AF1BG  THE  SUM  CF  THE  RANGES/ 
HOF  8IIP  THE  GIVEN  FANGE 
ITEFF=RECINT (1) 

DO  8 1 3 C 1=2, NEC! 

IF  (fPCINl (I) .GI.I1EFF)  GC  TC  8130 
ITEH  P=  NECIN I (I) 

CONTINUE 

PECOFY  TEE  TEHFCRARY  ARRAYS  CNTC  THE  PEFEAAfKT  CNES 
DO  eittC  1*1 , ITEEP 
DO  €14C  0* 1 , NHC E 
ELP ANJ (1,1,0) * (1-1) *FAD 
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8140  ELEANJ(I,2,J) = 1 F B E P ( T , 0) 

NSCL=0 
sup  1=0.  r 

CO  6145  0=1 , NFC  E 
8145  SUM 1=SCP  1*TEBER  (1  ,0) 

DO  8 1 5C  I=2,I1HPP 
SOM=0.C 

DC  8 1 6 C 0 = 1, KHC I 
8160  SUB=SUB-»1EBEF  (1 ,0) 

IFfSUB.Il.TFAKGF.ANr.SUBI.LT.lRANGF)  GC  1C  6149 
IF(SUH.Gl.TBAKGE.ANt.SUHl.GT.TRANGE)  GC  1C  6149 
C HE  ECUS C A SC1U1ICN 

NSCl=NSCl4l 

C INTERECIATE  TO  FIND  THE  AEFF CXI  PATE  ELEVATICh  ANGLF 

SLCEE= (SUB-SUBl)/ (FIFANO (I, 1,0) -ELRANO  (1-1  ,1  ,0) ) 
CR0SS=SUB1-SLCEE*ILFAN0  (3-1,  1,J) 

A PRC  X (NSC  I,  1,  1)  = (IRA  NGF-CFC  S S) / SICE  I 
A PRC  X (K  SCI,  2 , 1)  =1 
8149  SUP1=SUK 
815C  CCNTINDE 

CO  6771  KQ=1,91 
FR1=EIFAF0  (KC  # 1 , 1 ) * E EG  S 
PR2=ELFAK0  (KQ,  1 ,2) *CEGS 

PRINT  6734, PR1, FLFASJ  (KC, 2,1) ,EF2,EIEANJ  (KC  ,2,2) 

873  4 FOFMAT  (IX, 2F12. 3, 123,2112. 2) 

6771  CCNTINCE 

8733  FCFKAT  (1X,12F8.3) 

12000  RETURN 
ENC 
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S0ER0G1IKE  PITT  (SANG, GFCtJF,ANG) 

REAL* 8 BARTHR,PI,AA,EB,CC,PF,A1,E1,C1,HAIT,AFGGH,X1,X2,X3,F1,P2,X, 
1R3,JI,II,XJ,RJ,EETA,  CF,CB1,CR2,CF3,CGE,CGF1,CGF2,CGF3 

CCPPCN/CCNST/  El,Fn2,FIC2,TEGS,FAT,E0H  (3) 

CCMMCN/LINSC/  C INS  (5  2)  , HEIT  (52)  , FLRA  10  ( S 1 , 2*  , 2 ) , A PRCX  ( P , 2 , 2)  , F F ATIO 
1 ,NPAX,NSTART,JFIAG,NSCL,TEMIN  (2  1)  , JJJM 
CCBPCN/CCEEP/  A 1 (52) ,E1  (52) ,C1  (5  2) , FAIT  (£2)  , F AFCG E , S A FCGH 
C0MHCN  Y (6)  /VW/  ID  (1C)  ,KC,W  (4CC) 

EQOIVAIEACP  (FIFTH  ,8(19)) 

C CR  IS  1 hi  CALCULATE!  RANGE 

C NH  A X IS  THE  NCPFEF  CF  EOINTS  CF  TO  THE  HEIGHT  OF  HAXIMDK  TENSITY 

C HEIT  IS  THE  HEIGHT  INCREHENTS  CCFRESECNtlNG  TC  THE  TENSITY 

C TENS  IS  THE  NCRPAII7ET  TENSITY 

C CGF  IS  TEE  C AICCL  ATI E GRCOF  FAT  I 

C PRATIO  IS  THE  T B A NSP ISSIC N F EEC CENC Y , F , S Cll  A F E D . 

C BETA  IS  THE  IIEYATICK  ANGLE 

C NSTART  IS  THE  INTE.T  AT  WHICH  THI  DENSITY  HAS  A VALDE 

SQFT  (X) =ISCRT  (X) 

ALCG (X) = ELOG(X) 

ARSIN  (X) =EARSIS  (X) 

ARCCS  (X) = C ARCC S (X) 

ccs  (X)  = rccs <x) 

SIN (X) =T SIN (X) 

AES  (X) =T AES  (X) 

DT1=1.CIC 
ED2=2.0EC 
TT4=4.CIC 
BET  A=  A KG 
FP= I R AT IC 
E ART  EP=EARTH 
JFIAG=C 
RE=IARTEF**2 
M = N ST  AFT 

CALCDL1TI  THE  RANGE  ANT  GFCOE  FATH  EFCP.  EAFTh  SOPFACE  1C  THE 
C BCTTCM  CF  THE  ICNCSEHFPF 

CR=  A E S (EIRTHR*CCS (BETA)/ (FAIT (H) 4EAFTHF) ) 

CR  = IT2*I AFTHR*  (AFCCS(CB)-EITA) 

CGF  = TT2* (SQPT ( (EAFTFF  + H AIT  (M) ) **2- (E ART K F *CC S (E ET A ) )**2)-EAFTHR* 
1SIN  (EETA) ) 

C SET  UF  THE  CCNSTANTS  AA,I£,CC  FCB  TFI  FIRST  THFEE  PCIN1S 

JJ=1 

AA=TD  1-A 1 (JJ)/FE 
EB=-B1  (00 ) /FP 

CC=-C1  (JO) /FF- (IAFTFF*CCS (EETA)  ) **2 
ARGUH=EE*EE-TT4*A A*CC 
1=  P*  3 

P1=E ARTEB*HAIT (H) 

R2=EARTfiF*HAIT  (P*  1) 

R3=I ABTEF+HAIT (H*2) 

X1  = AA*B1*R1*EE*F1-»CC 
X2=AA*F2«R2*EE*F2*CC 
X3=AA*B3*F3*EE*F3*CC 
IF  (XI)  4CC, 400, 52 


52  IP  (X2)  55,55,56 

r TDD  DAD  ttBT  tr*tP 
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FT  = F 1 
GC  TO  3CE 

C CAICUIA7E  TH E FANOE 

75  IF(CC)  "C,6C,6C 

7 f CR 1=CE2*FE*CCS  (FETA) /SQFT  ( — C C ) 

CR2=(EE*P3»DD2*CC)/<>ES(F3)*SCR1(ARGUH)) 

CH  3=  (nE*E1*EE2*CC)/  ( AES  (R  1)  *SQFT  ( ABGtd)  ) 

CR=CB*CF 1* (ARSIK  (CR2) -ARSIK  (CR3) ) 

GC  ?C  80 

6 C CR  -»  = -EC2*RE*CCS  (B  FT  A)  /SCSI  (CC) 

CR2= AES (C92*SQEI  (CC*I3)  /R 3*CC2*CC/R 3 +BE ) 
CP?=ABS(rt2*SCFl(CC*X1)/H1*rt2*CC/H1*BE) 

CR=CR*C5l*ALOG  (CR2/CR3) 

8C  CGF 1-EE2*  (SQRT  (X3) -SQRT  (XI) ) /A A 

C CALCULATE  THE  GROUP  PATH 

IF  ( A A ) 9C, 100, ICO 

90  CGE2=(tC2*AA*R3+EE)/(SQFT  (AFGUM) ) 

CGP3=  (EC2*AA*R1*EE)/(SQFT(ARGUM)) 

CGP=CGF  + CGP1+-PB  + (ARSIK  (CG  F2)  -ARSIN (CGE3) )/  (AA*SQRT  (-AA) ) 
GO  TC  11C 

100  CGP2  = AE S (EU2*SQRT  < A A * X3)  4 E T 2*  A A ♦ S 3 *E  F.) 

CGF 3= AES  (DD2*SQRT  (A  A *X  1) ♦EI2*?A*R1+EE) 

CGF  = CGT+CGP1-EE*A10G  (CGP2/CGE3) / (A A** 1.5) 

C START  THE  CALCCIATICN  F CR  THE  aiST  CF  TEE  EEKSITY  FRCFILE 

11C  EO  20  1=1 , NMA  X 

JJ=JJ+  1 

C SET  UP  TEF  CCKSTAKTS  AA,EE,CC 

120  AA=EC1-A1  (JJ)/FE 

F8  = - E 1 (JJ)/FF 

CC=-C1  (JO) /FF-  (E A FTH  F*CC  S (EETA)  ) **2 
ARGUM=EE*EB-CEU*A A*CC 
RJ=I ARIF B+HAIT  (I) 

PI=FARTEF+HAI1  (1-1) 

XJ=AA*RJ*?J+EE*F J+CC 
XI=AA*FI*RI+EB*RI*CC 
IF  (XI ) 3C0, 300,172 
172  IF(XJ)  3CC,3CC,171 

171  IP(CC)  170,160, 16C 

C CALCULATE  THE  RANGE  OF  TC  FEF1ECTICK  HEIGHT 

170  CR1=tD2*FE*CO£  (EITA) /SQRT  (-CC) 

CP2= (EE*FJ+DD2*CC)/ (AES (BJ) *SQFT  (ABGUK) ) 

CR3= (BE*FI+CE2*CC)/  (AES  (RI) * SC  B 7 (AFG  OH) ) 

CB=CF*CF1* (ARSIK (CR2) -ARSIS (CB3) ) 

GO  TO  1 F C 

160  CR1=-CL2*FE*CCS (EETA) /SORT (CC) 

CR2=AES (IE2*SQFT  (CC*XJ)/EJ+tt2*CC/RO*BE) 

CR3  = ABS(EE2*SCET  (CC* X I) /BI ♦ E 1 2*CC/R I + EE) 

CR=CF*CF  1* ALOG  (CF2/CF3) 

180  CGP1  = CC2* (SQRT  (XJ)-SCBT  (XI) )/AA 

C CALCULATE  THF  GFCUP  EATH  UE  TC  FEFLECTICN  HEIGHT 

IF(AA)  ISC, 20C, 2CC 

190  CGP2  = (EC  2* A A* RJ* EE) / (SQFT  (ARGUN ) ) 

CGE2=(CC2*AA*PI4BB)  / (SQFT  (AFGUM) ) 

CGP=CGE*CGP1*EE*  (ARSIN (CGI 2) -IE SIN (CGP3) )/ (A A*SQRT (-AA)  ) 
GO  TO  2 C 

200  CGP2=AES(EC2*SCIT(AA*XJ)*EE2*AA*FJ+EE) 

CGE3=AES  (DD2*SCFT  (AA*XI)*CE2*AA*FI+EE) 
CGP=CGF*CGP1-EB*AICG (CGE 2/CG E3) / ( A A**  1 . 5 ) 

20  CONTINUE 

130  JFL  AG  = 3 

GO  TC  ROC 
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2C0  CONIINE  5 

FAECGF*(-BB*SCB1(ARGC1‘))/(EE2*AA) 

R AFC  GN  = (-EB-SCE1  ( A RG  U fl) ) / ( ED  2 * A A ) 

205  IF(CC)  2H,?2C,22C 

210  CR1  = DE2*FE*CC£<EE7A)/SQRT:(-CC) 

C R2=  F T E 2 

CR3=(EE*EI»CC2*CC)/(AES(EI)*SCR1(ARGCH)) 
CR=CP*CF1* (CR2- ARSIS  (CR3) ) 

GC  7 C 25C 

320  CR1=-DE2*F5*CC£(EETA)/SCR7<CC) 

CR 2=  A P £ (SQRT  (APGUE) ) 

CP  3 = A B £ (ED2*SQP1  ( CC*  X I)  /RI*PE2*CC/RI*EE) 
CR=CP+CR1*AL0G  (CR2/CF3) 

350  CC.F  1 = -EE2*SCFT  (XI)/J  A 

IF  ( A A)  263,  373,  270 
360  CGF2=-EIE2 

CGI  2= (ED2*AA*RI*B8) / (SORT  (ARGOH) ) 

CGF  = CGF*CGP1«-EE*  (CGF 2- A FSI N (CG F 3) ) / ( A A * £QP 7 ( - A A) } 

GO  7 C HOC 

370  CGF2  = A ES  (SQRI  (AFGHM) ) 

CGp  3 = A E £ (CC2*SCPT  (AA*XI)  *E  E 2 * A A * F I*  E E ) 

CGF  = CGE4CGP1-EE*AL0G  (CGE2/CGF3)/(AA**1.5) 

400  PANG=CF 

C-RC  OF=CGF 

IF  (W  (394) .EQ.C.C)  GC  TO  5C0 
R ANG=CGF 
GROCF  = C R 
5 CO  FETEFN 

EKE 


i 
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SUBROUTINE  GFCCF.B 

C A SUBROUTINE  1C  CCBFUTE  IFF  FIN1KUB  OFCUF  FA1H 

C FIRST  H:  FIND  TFE  FENETRATICN  ANGLE  A.NE  THEN  US?  CHECKING 

C AND  CHCFFING  TECHNICIF  1C  ICCAIF  IFF  WITHIN  A CIVFN 

C TOIFRANCI  IN  CFCOF  EA1H 

CCPFCN/CCNST/  II,Fn2,FIt2,EEGS,FAE,IUP(3) 

CCBHCN/EIAGS/IFIAG, IGRT 

Cf'HFCN  I (12)  ,1/WW/IE  (1C)  ,NC,W(4CC) 

CCBBCN/DENSC/  EEN£(52),HEIT(52),llRINJ(S1,3,2),APPCX(6,2,2),FPA,:iO 
1,NHAX,KSTAFT,JEIAG, ASCI, CPEIK  (2  1) , JOJB1 
CC BBC N/ CENT/  FH<15,52,5),TEETA(1S),FCT(52),EtI(5),EFES(4),HI 
CCKHCN/EG2/  L AT  EX ,LC A NX , IHT P X 
CCKECN/ FF/N, S1FF, PC  EE, EC  NY  (5) ,F START 

CCBNCN/FIN/XN2,XNUX,FN2  (8 ) , I C l \ F (4)  , £ E AC F , CC 1 1 , F I ELD 
CCPPCN/NECPI/  K I F I N 1 , K C E 1 , F E FI 

EQUIVALENCE  ( E A FT HP , B ( 1 9) ) , ( F f W ( 3 ) ) , (A Z 1 , U ( 1 6 ) ) , ( B FT A , h ( 1 7)  ) , 

1 (ONLY, S (371) ),  (A2A, W (263) ) 

EQUIVALENCE  (FF0,W(3*8)), (THC,N<377)) 

NSC  I =C 

C SELECT  TEE  LCNG1TCDE  CCC5EINA1 E CF  EINSITY 

EFHI=AES (EEI  (2) -FHI  (1) ) 

K K=  LC  N E X 

DC  110  N= 1 , LC  NE  X 
EIF  E 1 = AES (PHO-EHI  (K) ) 

IF  (EIFE1-DPHI)  120, 115, 11C 
115  KK=K 

GC  TC  1 3 C 
120  KK=K 

IF  (K.GE.ICNNX)  GC  TC  13C 
DTFF2  = AE£ (PHO-PHI  (K+1)) 

IF  (EIFF2.LT. DIFE1)  KK=K+1 
GO  TC  13C 
HO  CONTINOE 

C PRINT  THE  EFFCF  NESSAGE 

FRIKT  125 

125  FORNAT  (2X, 'CANNCT  FINE  A LCNGITUEE  CICSE  TC  THE  TRABSB ITTEF ' ) 

GO  TO  4 C C 

C SELECT  TEE  CCLATI1UEE  CCCREINAIE  OF  EENSITY 

130  ETHETA=AES  (THETA  (2) -THETA  ( 1) ) 

IL=LATEX 

EO  135  1=  1 , LATEX 
CIFE1  = AE£  (THC -THETA  (L) ) 

IF  (EIFF  1-ETHEIA ) 145,140,135 

140  II=I 

GO  TO  16C 
145  LL=L 

IF  (I.GE. IATBX)  GC  TC  160 
DIF F 2= AES  (TfiC-TEETA  (1*1) ) 

IF(EIFF1.IT.DIEF2)  II=l+1 
GO  TC  160 
135  CCNTINDF 

C PRINT  TEE  EFFCF  FESSAGF 

PRINT  15C 

150  FORFAT  (2X, 'CANNCT  PINE  A CCLA1ITEEE  CLCSE  TC  THE  TRANSPUTER ') 

GO  TO  4CC 

C EXTRACT  TEE  EENSITY 

160  DC  165  1= 1 ,LHTfl  X 
165  DENS  (L)*EH  (LI, I ,KK) 

TEHF  = DESS  (1) 

EC  170  1*2,LHT»X 
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IF  (TENS  (I) .LI.IFHF)  GC  TC  170 
NHAX*L 

TEPF  = E 1 1 £ ( L) 

170  CONTINCF 

HHA X=EGT  (IHAX) 

FORCERS  ( ft (1 A X) 

«PITH<6,24)  F 

24  FOBPAT ( IX, 'THE  TRAN5HISSICN  P FEC C E NC 1* ' , F 1 2 . 5 , • KHZ') 

TOI G R F=  1 .0 

C TEH IC  F AM  ALICCATICK  CF  A7INCTH  IN  ft  (26  2 ) 

AZ1=AZ* 

C COHFOTI  THE  EIFFATICN  ANGLE  FOR  A TFAPFIC  RAF 

TEH  F A = (EARTHR+HHAX) *SQRT  (1 .0  - (FC/F) ♦*2)/EARTHR 
IF(TFHFA-I.C)  1 C , 1C  , 9CC 
10  EETAF=ARCOS (TEHFA) 

2 C EETA1=EETAR 

C INITIALIZE  THE  RAF  PAFAHFTEES  AN  IT  TRACI  THE  RAF 
CAIX  RAF1NT  (AZ1 ,EFTA1) 

EET  A=BET  A 1 
EL=EITA*tEGS 
AZH= AZ  1 ♦LEGS 
WRITE  (6,2  5)  Et.AZH 

25  FCFPAT  (IX, 'EIIVATICI  A SGL E CF  T F ANS P ISS 1C N= • , FI  2 . 6, • LEG*,?*, 

1'AZinCTF  ANGLE  CF  T F A AS  PI SS IC N*  • , F 1 2 . 6 , • LEG*) 

CALI  TRACE 
HPF  T=0 

IF  (1GRT. IS. C)  GO  TC  950 
C CHECK  FCF  PENFTFATICN 

IF(CNLF.IC.C.C)  GC  TC  37 

EFTAR=C.«?*EETAE 

GC  TC  20 

C STCFE  THE  F ALOE  £ 

30  GROUE1*! 

C TAKE  951CF  INITIAI  TFAEFIRG  ANGIE 

EFTA2=C.95*BETAF 
CALI  FAUNT  (AZ1  ,EETA2) 

BFTA=EETA2 
FL=EETA*tEGS 
WRITF(€,2£)  II , a ZH 
CALI  TRACE 
HFFT=0 

IF  (1GRT. IE. 0)  GC  TC  S50 
GP00E2*T 

C TAKF  90*  CF  INITIAL  TFAFEING  ANGIE 

EETA3=C.50*BITAF 
EETAL=IITA3 

CALL  RAFT  NT  (AZ1,BETA3) 

BETA=BETI3 
FL=BETA*IEGS 
WRITE  (6,25)  EL, AZ P 
CALI  TRACE 
HPRT=C 

IF(IGET.RE.O)  GO  TC  950 
GFCGF3=T 

C CHECK  FCF  THE  SEAFE  CF  THE  CORF  I 

40  IF  (GFOCI2.LT.  GBC0E2)  GC  TC  8C 
C SLCFIFG  TCVA  Rt£  THE  FIGHT  TO  GRCCP  2 

50  IF  (GRCCF2.LT. GFCDI1)  GC  IC  2C0 

C SLCFIKG  TOW ABCS  TEE  FIGHT ;FINC  A NEI  EEEETRATICN  ANGLE 

C INCFEHENT  EETAE  EF  51 

BFTAF=1.C5*EITAE 
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63  C A 1 1 RAY1NT  <A21,EETAF) 

eeia=eitaf 

EL=EETA*CEGS 
WFITF<6,25)  1 1 , A Z F 
CALL  IF  ACE 
HPFT=C 

IF(IGFT.M.C)  CC  TC  55*' 

C CHECK  FCF  FENE1E  ATICK 

TF  (CNIY.GT.C.C)  GC  1C  73 
C INTE  FCHANGE  1BE  VALCFS 

EETA3*E  El S2 
EFTA2=EF1A  1 
EETA1=IETAR 
GPOUF  3 = C-FCUP2 
GPOOF2=CICUP1 
GPC  U F 1 = 1 
GC  1C  53 

C PAY  FEKETFATEE  lECFFPENT  THE  ANGIE  EY  11 

70  EMAF  = C.  <5*BF1AF 

GC  TC  6C 

C SLCFING  1CWAFIS  IRE  LEFT 

EC  EETAL=C.S5*EE1AI 

CALI  RAYINT  (A21  ,E  ETA  I ) 

EFTA=BE1AL 
EL=  E ET  A * C EGS 
WFI1F  (6,2  5)  El , AZF 
CAIL  1FACE 
PPFT=  0 

IF  <IGR1.SE. 0)  GC  TC  SEO 
EET  Al  = EF'TA2 
BFTA2=EI1A3 
EF1 A 3=  E IT  AL 
GRC  U F 1 = G F C 0 F 2 
GFOUF2=GFCUP3 
G RC  C F 3 = 1 
GO  1C  UC 

WF  FOUNC  A SPALL  VAIDF  GFCUE2  INCLUCED  EETWEEN  TWO  LAPGEP  VAIflFS 
GPOCF1  AM  GFCDF3 

USE  THE  CHOF  KETRCD  CN  E1TFEF  SIEE  CF  GFCUF2 
200  BETA5=EE1A3*0.5*  (EI1A2-EE1A3) 

EETA4=EE1A2*0.5*  (EE1A1-EETA2) 

CALI  FAYINT <*71,BITAa) 

BET A=BITA4 
EL=PFTA*tEGS 
WRITE  (6,2  5)  El.AZP 
CALI  TEACF 

hpft-0 

IF (IGRI.KE. 3)  GC  TC  950 
GPCUF  4=T 

CALI  RAYINT <AZ1  ,EITA5) 

EET  A = E ET  A5 
FL=BFTA*EEGS 
WRITE  (6, 25)  E I , A Z F 
CALI  TRACE 
HPRT=9 

IF  (IGRT.KE. 3)  GC  TC  950 
GRCU  F C = T 

C CHECK  IF  IT  IS  WITHIN  THE  TOLERANCE 

IF  (AES  (GFOUF5-GFOCP2)  .Gl.TCLGPF)  GO  TO  21C 
IF(GF0UE«.LT.GFCUE5)  GO  TC  350 
GO  TC  300 


i 
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C CHECK  IF?  LEFT  SHE 

2 10  IF  (GROUF5.GT.GRCUF2)  GC  1C  223 
C FFPIACE  IhB  LEF1  SIC?  VALUES 

EE1 A 1 = E ET A 2 
EETA2=EET A5 
GROCE  1 = GEC'JE2 
GFCUF2=GFCUF  5 
GO  TO  20C 

C CHECK  IF  IT  IS  WITHIN  THE  TOLERANCE 

220  IF  (ABS  (GFOUP4-GFOGP2)  . I F . TCL  GR  F ) GO  TO  3CC 

C CHECK  TE?  RIGHT  SIC? 

IF  (GROUF4.GT.GRCUF2)  GC  TC  24C 
C REPLACE  THE  SIGHT  SIDE  VAIUFS 

EETA3=BFTA2 
BFTA2=E?TA4 
GRO  CF3  = GFCnp2 
GROUF2=GFOUP4 
GO  TC  2CC 

C REPIACE  THE  fllECLE  FCFTICN 

240  EFTA3=EFTA5 

E?TA1=E?TA4 
GFC  U F 3 = G FC UPS 
GR0DF1  = C-FC1F4 
GC  TC  2CC 

C HE  FOUNE  THE  LEFT  SIC?  HINIHUM  VALUE  CE  GFCCE  FATH 

300  IF  (GROUPS. GT.GFCUE2)  GC  TC  305 

GHCCF2=GFCUP5 
EET  A2  = E IT  A 5 
305  HPITE (6, 3C7) 

3C7  FOFHAT (//IX, •***'//) 

HEITE  (6  , 310) 

310  FCFFAT  (IX,  ' THE  LEFT  SICE  ,EIMHUH  GECUF  FATH  AND  ITS  ANGLE  ARE 

1.  ') 

EETAE=EETA2*DEGS 

WRITE  (6,320) BFTAC,GFCUE2 

320  FORMAT  (IX, ' ELEVATION  ANGIE* • , F9 . 4 , 2X , ' HI M HU H GROUP  PATH=',F5.4) 
WRITE  (6,3  C 7 ) 

GO  TC  4CC 

C WE  FOUNC  THE  RIGHT  SICE  HINIHUM  VALUE  GECUF  FATH 

350  IF (GFOUF4.GT.GRCUF2)  GO  TC  355 
GP0CE2=GECUF4 
BET  A2=EET  A4 
355  WRITE  (6, 307) 

WRITF  (6,360) 

360  FORHAT (IX, 'THE  RIGHT  SIDE  .HINIMUP  GFCUF  FATH  ARC  ITS  ANGIE  ARE 

1.') 

BET  A C = EFT  A 2* DIGS 

WRITE  (6,3  20) E ETA C, GFCUF 2 

WRITE  (6, 3C7) 

4CG  RETURN 
SCO  WRITE  (6,510) 

910  FORHAT  (IX, 'THE  ARGUE  ENT  OP  AFCCS  IS  GREATER  THAN  CNF') 

GO  TC  4CC 
950  IGRT=0 

GO  TO  4CC 
INC 
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S 0E  FO  0 T I N F PFCF3L 

C A FCOTINF  TO  GERFRATF  A NEfc  EENSITY  FFOFILF 

CIBFNSICN  AZT  (5) ,RPKFCD  (20, c,4)  ,FR  (2,3)  ,F  (3)  ,NF  (5) 

CO  B(1  ON  / 1 E N X/  FF(19,  52  , 3)  ,THET  A (19)  ,HCT  ( 52),FHI(  5)  ,FRHS  («)  , HI 
COBBON  /EG  1/  Hli  (2)  ,EPH  (2)  , DHT  ( 2) , El TR  , 1 1 F ( , E LET , THZC , E(IIZC,HTZC 
CCBBCN  / I G2/  IATEX,1CNBX,1HTBX 
CCBFCN  /CONST/  FI  ,PIT  2 , FI  E2  , EFGS  , B A I , EU  f (3  ) 

CCHBON  Y (12)  ,T,£TE,EFCT  (12)  /WW/  ID  ( 10  ) ,ViO  , W (4CC) 

EQOIVALFECF  (IAFTHR,W  (15) ) , (FLO»,»  (13) ) , (FI AT,W  (15) ) , (TLON,N (14) ) , 
1 (TLAT.W  (16) ) , (AIPH,W  (376) ) , (TCI AT ,W  (377) ) , (1  I0NG,H (376) ) 

C AZIBOTH  TCIFRAECE 

AZTCL  = 1 0 . * BA  D 

C CONVERT  TFE  ANGIES  TC  PAEIANS 

DO  140  1=1, L ATHX 
40  THETA  (I)=THET#  (1)  ♦FAC 

DC  30  1= 1, LCN  EX 
50  EHI (I)=PFI(I) *FAD 

C READ  THE  NUflBEF  CF  AZIBOTH  AND  THE  R CHE  ER  CF  POINTS  IN  EACH 

C AZIBOTH 

READ  (5, ICC)  N,  (KF  (I)  ,1=1  ,K) 

100  FOPBAT  (£1  10) 

C FEAE  TEE  AZ  IHCTE  A I AKGIES 

REAE  (5,  110)  (AZT  (I)  ,1=1  ,N) 

110  FOPBAT  (6E 10. 0) 

C REAE  BE , FH , FC , A NE  E FCP  EACH  AZIBOTH 

DC  130  J = 1 , N 
NF1  = NP  (0) 

REAT  (5, 120)  ( (FEBECT  (1 , J , K ) ,K  = 1 ,14)  ,1=1, KE1) 

120  FCRHAT  (4F 10.0) 

1 3 C CCNTINCE 

C LOCATE  THE  CLOSEST  F»NGE  TC  THE  TRANSHITTEB 

TEST=REHICE(1,1,4) 

K 1 = 1 
K 2=  1 

DO  160  1=  1,  Bi 
N E 1 = N P (I) 

EO  165  11=1, NE1 

IF(FBBFCI (11,1, «)  .GE. TEST)  GC  TC  165 

K 1 = 1 1 

K2=I 

TEST  = EEBECD  (11,1,4) 

165  CCNTINCE 
160  CONTINCE 

C GENERATE  THE  NEW  EENS1TY  FFCFILE  IN  AIL  THE  SF ACE 

PB  = RBBFCI <K1, K2,  1) 

PB=FEHFCt  (K 1 , K2 , 2) 

FC=FEBECE  ( K 1 , K2 , 3) 

YB=FB-FE 

DO  170  K=1,LCSFX 
DO  170  0=1, LATEX 
EO  170  1=1,  LHTI*  J 
FH  (0,1  ,K)=C.O 
RT=FARTHF*HGT  (I) 

FACT= ( (PT-RB) *FE/  (YH*RT) ) **2 

IF  (FACT . GT. 1.0)  GO  TC  170 

FH (0 , I , K) =SQBT (FC**2*  (1.0-FACT) ) 

170  CCNTIKOE 

C FINE  THE  BAXIHOF  RANGE  AND  SET  THE  IIHIT 

TEST=RBBPCD  (1,1,4) 

DO  145  1=1, N 
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NP1=NP  (I) 

CO  140  11=1, NE1 

IF  (REBPCE  (11,1,4)  ,LE. TEST)  GC  IC  140 
TEST  = REBICC  (II, 1,4) 

140  CONTINCE 
145  CCNTINCE 

RANGEL=TEST+1CC.O 
C PRIKT  INFUT  CAT  A 

PFINT  1 25C  , N,  (N  E (I)  , 1=  1 , S) 

1230  FCRRAT (1X,,N=* ,13,5 (•  K E=  • , 14) ) 

PRIKT  12  21,  (AZT  (I) ,1=1, N) 

1221  POP K AT (1X,'AZIHCTES=,,5 (F  6 . 2 , 31 ) ) 

DC  1233  0=1, S 

N FI  = N P ( J ) 

PFIKT  1 2 2 2 , AZT  ( J ) 

1222  FORMAT  (IX, ’AZIHCTF=,,F8.2) 

FPINT  1224,  ( (FEEFCD  (1,0, A)  , K=  1 , 4 ) ,I=1,KI1) 

1234  FORMAT  (II, ,PE=',FE. 2, ' FH=',Fe.2,'  FC=',F6.2,*  C=',I8.2) 

1233  CCN1INIE 

PFIKT  1225,  FAKGEI.ALEH 

1235  FOFRAT (II, • SAXIEDF  F A KGF= • , F E . 2 , ' AIF E = • , E 14 . 7) 

C GO  THRC0CH  IHF  GRID  FCIKTS  ANE  TFT  1C  IKTIFICIA1F  THE  GIVEN  EATA 

CO  400  K=1,LCNBX 
TNF  = ABS  (1IONG-I HI  (K) ) 

CO  280  J=1,LATF? 

C FINE  TEE  AZIBOTF  CF  CKE  ICINT  E(J,K) 

ANGTCF  = CCS (TCLAT) *CCS  (THETA  (J)  ) *SIN  (TCIAT) * S 1 N (THETA  (J) ) *CC£  (TNF) 
ALPF A = AFCCS  (AKC-1CI) 

SINPTK=£IN (TNI) *SIN  (1HE1A  (0) )/SIK  (AI I B A ) 

COSFTN*  (COS (TFE1A  (J) ) -CCS (TCIAT) *CC£  (AIEHA))/(£IN( TCLAT)* 

1 S I N (ALEhA) ) 

AZF= AB£IN (SINF1K) 

IF  (£INFTK.LT.C. C)  GC  TC  210 
IF  (CCSF1K.LT. C.C)  AZF  = PI-AZP 
GO  TO  22C 

210  IF (CCSF7K. IT. C. C)  AZF=-FI-AZF 
220  IF (TLCNG.GT.PHI  (K))  AZP  = PII2-AZF 
PANGEE=EAFTHF*AIFEA 
P 1 =FHI (K) *DEGS 
P2=T  HET  A (0) *EEC£ 

E3=AZE*EEGS 

PRINT  145C,FAKGEP,P2,F2,E1 

145C  FOE  BAT (IX, • F A NGE=  ' , E E .2  , • AZI B CTH=  • , F E . 2 , • COLAT= • ,F8 . 2 , 

1'  LOKG= ' , P0 . 2) 

C CHECK  IE  THE  AZIRCTH  AZF  CF  F I£  HIT  BIN  THE  IIFITS  CF  GIVEN 

C AZIBUTE£  ELUS  TCIERAFCE 

AZ1=AZT(1)*FAC-ALEH-AZTCL 
AZN= AZT  (N) *RAC-AIFH+A2TCL 
IF  (AZP.GE.AZ1.AM.AZF.LE.AZN)  GC  TC  240 
C THE  AZIRITH  OF  E IS  CDT  CF  FANG! 

GO  TO  280 

C CHECK  IF  THE  HANG!  IS  CC1SICE  THE  BAXIHCR  GIVEN  RANGE  ♦ TOLERANCE 

C OP  10CFE 

240  IP  (FANGFE.GT. FANGEL)  GO  TC  280 

C LOCATE  THC  AZIECTHAI  ANGLES  FCF  E 

KK=  K 

CC  260  1=1, N 

AZT 1=  A 2 1 (I) *PAI-AIPE 

IF  (AZF.G1. AZT1)  GO  TC  260 

KK  = I 

GC  TC  265 
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260  CONTINUE 
266  K K K=  K K-  1 

IF(KK.EC.I)  K F K=  FK  ♦ 1 
C CGMFMT*  IKE  GEC  PACNETIC  A7IHUTHS 

A Z T 1 = IZT  (KK)  *Pt C-AIPH 
AZT  2 = A2T  ( K K K ) *FAC-?IEK 

C SSAFCE  FCF  THE  CICSEST  TWC  VAIUFS  CF  CRCUNL  RANGES  TC  GPCUNC 

C RANGE  CE  E 

11=  1 

TEST=FANGFP 
1=  F K 

270  N F 1 = N F (I) 

K 1=  N F 1 

CC  290  1 1= 1, N F 1 

I?(REHFCC(I1,I,4)  .LI. TEST)  GC  1C  290 
ki  = :i 
GO  TO  295 
.?  SC  CONTINUE 

C INTEF  EC IATE  LINEARLY  FCF  THF  VAICES  OF  F E , F H , FC 

295  K 2=  K 1 -1 

IF(Kl.FC.I)  K2  = X 1 + 1 
DO  200  (1  = 1,3 

SLC  E E=  (FEHFCD  (Kl,l,P)-RF(!FCE(K2,I,B))/(FEHFCE(Kl,I,U)- 
1RBBFCD(F2,I,4) ) 

CPC £S=EE FFCC  (F1,I,M)-SLCEE*FEHFCC(K1,I,4) 

PR  (1 1 , (!)  =CRCSS+£LCPF*FANGFE 
3CC  CCNTINCE 
IL=IL+1 
I=FFF 

IP  (IL.IF.2)  GC  TO  27C 

C FINE  IFF  EIFFIRI NCF  IN  AZIHUTHAL  ANGIES  AND  CCBPUTF  THF  VALUES  CF 

C FS,  PH,  FC  AT  TFE  PCINT  F 

ANG  1F=A  2T 1 - A7E 
ANG2  F=AZE- AZT2 
ANG12=AZT1-AZT2 
CO  3 1 C P=  1 , 3 

310  P (M)  = (AN02P*FR  ( 1 , P)  ♦A(iG1E*FF  (2,P))/ANG12 
C R ( 1 ) CONTAINS  FE,F(2)  CONTAINS  FB,P(3)  CONTAINS  FC 

C COMFUTE  VALUES  CF  FC  AT  EIFFERENT  RF1GHTS 

YM=F  (2)  -F  (1 ) 

CC  340  I = 1,1HT(1S 
FH (0 , I , F ) =0  . C 
PT=  EARTH F + HGT  (I) 

P ACT=  ( (ET-R  (2))  * R (1)/(YB*BT) ) * * 2 
IF  (FACT. GT. 1 . C)  GC  TC  340 
FH (J,L,K)=SCBT (B  (3) * <2*  (1.0 -FACT)) 

340  CCNTINCI 
380  CCNTINCE 
4CC  CONTINUE 

C EREFARE  ANGLES  IN  DEGREES  FCF  FEINTING 

DO  420  1= 1 , LO  F P > 

420  PHI  (I)  = EHI  (I)  UEGS 
DO  44C  I=1,IATBI 
440  THETA  (I)*THETA  (I) «CEGS 
PETUFN 
ENI 


\ 

r 

c 


non  non  noo 
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SUEFCUTIN 

1 ELECT! 

ELE 

1 

c 

El' 

2 

c 

CCBEU1FS  THE  ELFCTRCN  DENSITY  AM  ITS  CEFIVATIVES 

AT  ANY  FCINT 

ELE 

3 

c 

(FfFEl 

,IH)  AICEG  THE  'AY  IN  A THFEE  EIBFNSICNAL  ICNCSPHEFE  . 

EIE 

4 

c 

ELE 

c 

r 

ELF 

6 

c 

DESCFIFTICN  CF  FAFABETFSS 

ELE 

7 

c 

ELE 

R 

c 

GP  IE  PAFABETEF  CAFE:  ECFBAT  ( 3 1 2 , A 5 , 6 E 1 C . 2 ) 

ELE 

o 

c 

LCNEX 

- BAXIHLB  = CF  ICNG1TCEE  EIANES 

ELE 

10 

n 

I ATKX 

- BAXIBUB  = OF  IATIIUCE  SECTCFS 

ELE 

1 1 

c 

I HTBX 

- BAX1EUB  = CF  HEIGHT  LAYERS 

FIE 

12 

c 

NABE 

- I.E.  (CNIY)  CF  THE  EATA  GFIE. 

ELE 

13 

c 

7 HZC 

- LEAST  CCLATITCEE  SECTOF  IN  EEC,. 

EIE 

14 

c 

PHIZO 

- LEAST  LONGITUDE  PIANE  IN  E EG . (HESTBCST) 

ELE 

15 

c 

F I ZC 

- LCWFS1  HEIGHT  IAYEE 

ELE 

16 

c 

ELTH 

- INTERVAL  IN  THETA  E1REC1ICN 

ELE 

17 

c 

ELFH 

- INTERVAI  IN  EHI  DIFICIICN 

ELE 

18 

c 

EXHT 

- INIEFVAI  IN  FLIGHT 

ELE 

19 

c 

ELE 

2C 

c 

EH 

- GFII  EATA  CE  F I A SB  A FFFC.  AFPANCEE  IN  (T8,HT)  PIANES 

. ELF 

21 

c 

ELE 

22 

c 

SUEFOUTTRE  RECC1HEC  : I N I E F (L I , K K , J J ) 

ELE 

23 

c 

FFES 

- OUTEUT  FEIUPNEE  FI  Sl'ERCUllNE  INTEF 

ELE 

24 

c 

ELE 

25 

CCBBCN  /HAGS/  IFIAG,  IGFT 

c 

ELE 

31 

c 

NOT F : 

.ELE 

26 

r 

ELE 

27 

c 

WHEN  CHANGING  TO  EIEEEFENT  SIZE  GFIE  CHECK  FROPEP 

DIBENSICNS. 

ELE 

28 

c 

ELE 

29 

c 

APCCN 

CCFF.,  WAKE  FIE  I E , BASS.,  C183C  KRISHNA 

VANGUFI. 

ELE 

30 

c 

ELE 

33 

CCBBCN  /XX/  X,P.YFH,FXFTfi,FXFFH,IXPT,HBAX 

3LF 

35 

,PHI<  5) 


COBBCN  /FG2/  I»TFX,ICFBX,IHTHX 
CCBBCN  /CCNST/  EI,PIT2,FIE2,EEGS,RAt,CUB (3) 
CCBBCN  F (12)  ,T,SIF,LRCT  (12)  /WW/  ID(1C),VC,K 
EQUIVALENCE  (TE,F(2)),(FF,F<3)) 

EQUIVALENCE  (F,N(3))  , (E  A FI  HE  , K 1 1 9)  ) 

CATA  IFEAE  / C / 


, eFES  (4)  ,fU 
FHIZO, HTZO 


.2LE***36 


(liOC) 


IF(IREXt-l)  ICC  , 3 C" , ICC 
no  IF! AG  = C 
IGR 1=0 
TREAD  = 1 


ELE 

ELF 

ELE 

2IE 

ELE 

ELE 

ELE 

ELE 

ELE 

ELE 

ELE 

ELE 


I/O  TAPE  DESIGNATIONS:  IX=INPUT  UNIT, 

IX  = 5 
II  = 6 


1 1=0  UTPUT 


ELE 
ELE 

APE  ONIT.  EIE 
3LE 
ELE 
ELE 
ELE 
ELE 
ELE 

PFAC  (IX,  120)  ICNBX,IATBX,LH1BX, NABE,FHIZC,1HZC,HTZC,DLEH, ELTF,ELHTELE 
120  FCRBAT  (215,A4,£F  10. 3)  ELE 

C ELE 


PEAL  GRIL  PARAKETEPS. 


SIZE  A KD  INITIAL  VALUES. 


37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 


r ^ 
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r 

exit  if  iinns  fxcEFr. 

ELF 

61 

C 

EL* 

62 

IF  (LCKPX  - 5)  125,125,135 

j ^ j * » **;  3 

12  5 

IF  (LATRX  -15)  130,130,135 

ELE' 

«**84 

130 

IF  (LHTRX  - 52)  150,  150,13* 

ELF' 

►**65 

135 

K°  IT  F (11,140)  LCNMX,IATPX, LHTRX 

ELF 

66 

me 

FCFRAT  (IS, 35H  EAFASETERS  CUTSIIE  ?H  LIMITS:  ,/ 

EL  F 

67 

1 1 C X , 4 1 F MAXIPUP  KOPEER  CF  ICNGIIUDE  EIANFS  = ,15  , / 

CL  E 

68 

2 10  X , 4 1 F PAXIPUP  NUPFIF  C*  IATITOCF  SECTO'S  = ,15  , / 

ELE 

6° 

3 1 0 X , 4 1 F MAXIMUM  NUPEER  CF  F-1C-HT  LAYERS  = ,15  //) 

ELE 

7A 

STCE 

KV 

- II 

150 

CONTINUE 

ELE 

72 

C 

ELE 

73 

c 

SETOE  UNIFORM  SEHFBICAL  GFIt. 

ELE 

74 

c 

ELI 

7* 

DO  151  0 = 1 , IHT  RX 

ELF 

76 

151 

HGT(.I)  = HTZC  ♦ FLOAT  (J-1)  * CIKT 

ELE 

7"7 

DC  152  L = 1 , LATRX 

ELF 

78 

152 

THETA ( L ) = THZC  ♦ FICAT(L-I)  ♦ ELTK 

ELF 

79 

ELF 

80 

c 

FFAE  F F F Q . DATA  PLANES  CE  SIZE=(IA1PX  X LhTRX)  FOE  F.ACF  LCKGIT 

ODE 

ELF 

81 

c 

ELF 

82 

DO  169  K E H = 1 , L C N P X 

ELF 

83 

PHI  (KPH) = PHIZC  ♦ WIC  AT  (KFR-  1)  * CLPH 

ELF 

84 

c 

ELF 

85 

PEAL  (IX,  16  0)  ( (FH(I,J,KEH)  ,1=1, LATRX)  ,0=1, LHTRX) 

EL* 

86 

160 

FOERAT (15F5. 2,5X) 

ELF 

87 

169 

CONTINUE 

ELE 

88 

r 

IF (K (3S3) .GT.C.C)  CALL  PPCFIL 

s. 

c 

ELE 

8° 

c 

WRITE  COT  DATA  PLANES:  (IONOSPHERE  CRT  E PCLEI) 

ELE 

90 

c 

ELE 

91 

WRITE  (11,202) 

ELF 

92 

202 

FCFPIAT  ( 1H1,47H  PREPAID  EY  ARCCN  CORE.  WAKEFIELD,  MASS.  01860 

t 

ELF 

93 

4 3X,  21HTEL:  (611)  245-34C4  ,'  AUG.  1573.  */) 

NC5 

9 

WPITF  (I Y,  203)  IChRX, LATH  X,LHTHX,hAHF.,EHI2C, THZC, HT7.C,CLEH,  DLTh, 

CLH 

TELE 

95 

2C3 

FCFRAT  (/  1 X , 4 6 H UNIFORM  GFID  EA  F ASET  IPS  : 

,/ 

ELF 

96 

11X,eHLCNPX  = ,I6,4X,8HLATRX  = , 16 , 4 X , 8HL HT PX  = , 1 6 , 4 X , 5 HN AME= , 

A 5 , 

/.EL! 

97 

21X.8HPHI20  = ,19. 2,1X,eHTH7C  = , F9 . 2 , 1 X , 8H H TZC  = ,F9.2,/ 

3 Lv 

98 

31X,FHDIPHC  = ,F9. 2, 1X,8KDLTH  = , F 9 . 2 , 1 X , H H C L HT  = ,F9.2,/  ) 

ELE 

99 

WPITF  (11 ,2C2) 

ELE 

100 

WFITF  (11,210)  (THETA  (I)  ,I=1,IATRX) 

ELE 

101 

210 

FCPMAT  ( 27,  12HICNG.  HOT.  , 20F6.1  ,//) 

ELF 

102 

WPITF  (11,235) 

ELE 

103 

c 

ELE 

104 

c 

ELE 

105 

DO  240  K = 1 , LC  N MX 

ELE 

106 

DO  2 3C  J = 1, LET  MX 

ELE 

107 

WRITE  (11,22C)  PHI  (K)  , HGT  (J)  , ( F H (L, o , K)  , 1= 1 ,L ATM X) 

ELE 

108 

220 

FORMAT  (IX,  2F6.1,  IX,  2CF6.2) 

ELE 

109 

23C 

CONTINUE 

ELE 

110 

WPITF  (11,235) 

ELE 

111 

235 

FORMAT  (IX) 

ELE 

112 

24C 

CCNTINDE 

ELE 

113 

c 

ELE 

114 

c 

CONVEFT  ALL  ANGLES  INTO  RADIANS 

ELE 

115 

c 

ELE 

116 

DO  245  K = 1 , LC  N MX 

ELE 

117 

245 

F HI (K)  = PHI (K)  * RAC 

ELE 

118 

c 

ELE 

119 

! 
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DC  250  I = 1,LATM 

TIE 

1 20 

2 50 

THFTA  (L)  = THETA  (I)  * RAC 

ELE 

121 

c 

ELE 

122 

DIPH  = tIPH  * BAD 

ELS 

123 

OLTH  - D IT  H • KAO 

ELS 

124 

PH  1 20  = tHTZC  ♦ FAC 

ELE 

12? 

THZC  = 7 /» Z 0 * PAD 

ELE 

126 

c 

ELF 

1 27 

c 

CALCULATE  PHI, THETA, EEIGPT  DIFFERENCES 

ELF 

128 

c 

ELE 

129 

DTii  ( 1)  = 3.5/  ULlHmiE) 

ELE 

13C 

CFH  (1)  = 0.e  / (rLFF*DIFH) 

ELE 

131 

DHT (1)  = 3.5  / ( ILL  T ♦ DL  HT) 

ELE 

132 

PTH  (2)  = -2. C ♦ CTH  (1) 

ELE 

133 

CP H (2)  = -2. C * CFH  (1) 

El  E 

134 

CHT  (2)  = -2.0  * DM  (1) 

ELE 

1 35 

c 

ELE 

136 

c 

ADDFC  FCF  THE  HOPING  FFATDFF  CNIY 

UCFI 

i 

IF (W  (36C)  .NE.C.C)  FETUFN 

HO  FI 

2 

3CC 

CCNTINCF 

ELF 

137 

c 

ELF 

138 

PL  = H « 1 ) - FAFTHF 

EIE 

139 

F3FCS  = l * F 

ELF 

14? 

X = C . " 

El  F 

1U1 

FXFF  = C.C 

ELF 

1u2 

FXFTH  - C . 3 

ELE 

143 

PXPF H =■  (.3 

ELF 

144 

c 

ELF 

145 

c 

FIND  THE1A  EEC1CF  AFC  INDEX  11 

ELF 

146 

c 

ELF 

147 

LL  = I F I X ( ( (T  S - TH7C)  / CITH)  ♦ 

1. COCCI) 

ELF 

1 4 P 

IF  ( (TH.L1. (THZC-1 . E - 06 ) ) .CF.  (TH.GT. 

(THETA (LATHX)  ♦ 1.F-0  6) ) ) GCTC32C 

ELF 

149 

IF  (LL  - 1)  220,370, 

ELF 

150 

3 10 

IF  (LL  - LATEX)  330,325,320 

FLE 

151 

22C 

CCNTINCF 

ELF 

152 

c 

ELF 

153 

LL  = LL+1C0 

FLE 

154 

GC  TC  C C C 

ELE 

755 

32? 

LL  = LATEX  - 1 

ELE 

156 

330 

CC  N'T  INGE 

FLE 

157 

c 

ELE 

158 

c 

FINE  EF1  PLAN!  AM  IKDFX  KK 

ELE 

159 

c 

ELE 

160 

KK  = I F I X ( ( (F  F - F P 170) / CLFH)  ♦ 

1.0  CCC1) 

ELF 

161 

IF  ( (PH. IT.  (PHIZC-1.F-C6) ) .CF.  (FP.GT 

. (PHI  ILCNEX)  ♦I.E-Of  )))GOIC350 

FLE 

162 

IF  (KK  - 1)  350,340,340 

ELF 

163 

3 40 

IP  (KK  - LCNPX)  360,355,350 

ELF 

164 

350 

CCNTINUE 

ELF 

165 

c 

ELF 

166 

KK  = KM  1C  0 

ELF 

167 

GC  TO  4CCC 

ELE 

168 

3 55 

KK  = ICNEX  - 1 

ELE 

169 

360 

CC  NT  I N CE 

E Li 

170 

s- 

ELE 

171 

c 

FIND  HEIGHT  LAY1F  AN!  INDEX  JJ 

ELE 

172 

c 

ELF 

173 

JJ  = I F I X (((HI  - HT7C)  / CLHT)  ♦ 

1. COCCI) 

ELE 

174 

IF  (JJ  - 1)  380,370,370 

ELF 

175 

37C 

IF  (JJ  - IHTHX)  510,380,380 

ELF 

176 

380 

CCNTINCE 

ELF 

177 

c 

ELE 

178 

Ll 


't  ' . S* 
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tm*  = hgt(ihtpx) 

ELE 

179 

GO  TO  99S 

ELF 

180 

C 

ELE 

181 

C FRINT  FFFCF  EFSSAGFS  EFFCFF  EXIT. 

ELF 

182 

2 

ELI 

183 

4CCC  ANG1  = IF  * CIGS 

ELE 

184 

AJJG2  = FI  * DECS 

ELE 

18* 

X =1.0 

ELE 

186 

fxff  = i.o 

2LE 

187 

FXFTH  = 1.1 

ELE 

188 

HSAX=I.  GT  (LHTHX) 

2LE**189 

R (1) =pf FTHR+HBA) 

EL  F**  190 

IFLAG  = 1 

ELE 

191 

IGFT=  1 

WRITE  (IX, 4444)  A NG  1 , A N G 2 , II  , K K , I F L A G 

El  E 

192 

4444  FCFEAT  (//IX, 36  H A FG  L I S CCTSLFF  FANG!  CF 

IONOSPHERE  /16X, 

ELE 

193 

16HTP°TA=,FT. 1,3X,4HFHI=,  F7.1,  / 1?, 

ELF 

194 

2 1 5 F INDICES  API  ,6H  11  = ,I7,3X,4H  KK= ,17  ,8HIFLAG=,  15) 

ELE 

195 

C 

ELE 

196 

GC  TO  9'? 

FLE 

19R 

C 

ELE 

198 

5 1 C CCNT I NUF 

ELE 

199 

C 

ELE 

21 C 

C INTIFECIATE  FCF  l(TH,HL,FR)  USING  TFI 

1FDICFS  LL , K K , J J 

ELE 

201 

* 

ELE 

202 

C A 1 1 IMIR(II,KF,JJ) 

ELI 

293 

V. 

ELI 

204 

C CCMEtlTF  X "FOB  X=  (FLASH*  FFFC/f)  »*2, 

II.  I EN  .=  12400  (X) 

ELF 

205 

C 

ELI 

206 

X = IRES  ( 1 ) / FIFOS 

ELE 

207 

FXEF  = FR E S ( 2)  / FIFOS 

ELF 

208 

EXFTH  = IRES  (3)  / FFECS 

ELE 

209 

FXFFH  = F R P S (4)  / FIFOS 

ELE 

210 

C 

ELE 

21 1 

IFIAG  = C 

ELE 

212 

C 

ELE 

213 

999  RETURN 

ELF 

214 

END 

ELE 

215 

i 
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APPENDIX  2 

This  appendix  contains  expressions  for  the  partial  deriva- 
tives of  the  ground  range  ( R)  and  the  group  path  (P1)  with  respect 
to  the  elevation  angle  of  transmission  (8)  and  the  quasi-parabolic 
layer  parameters  (fc,  rm>  r^) , required  in  the  inversion  of  point- 
to-poir. L oblique  ionograms  and  backscatter  leading  edges: 


In  Eqs.  (A.l)  - (A. 4), 


W - 2 Jc  Frfa  sin  y + 2 C + Brfe 


APPENDIX  3 


The  computer  program  for  the  inversion  of  backscatter  iono- 
grams  by  utilizing  the  quasi-parabolic  model  is  listed  in  the 
subsequent  pages.  In  addition,  this  appendix  contains  a complete 
set  of  flow  charts  (with  the  exception  of  subroutine  FMFP,  which 
was  written  from  the  standard  IBM  scientific  subroutine  package) , 
and  a description  of  the  input/output  formats. 


r 
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RAGE  001 


->  NAME  main 

m EQUIF»CAPDrE.PRINTE,CARDPUi 

DIMENSION  F<2',)»R8C(20>.RMr<?0>,FCC(20>»RANGEC<20>.GPATHCC20>. 
1FC(5.2  >,RB(5.?0>,RM<5.20>.R4NGE<5.20).GPATH(5.20>,N<5>.AZUO> 
DIMENSION  FMID(20) 

202  CONTINUE 

READ  1 .TLAT.TLONG.FCS.HO.vm.NAZ* IND 
10  FORMAT  ( 5F10 . 2 » 1 1 » 9X , ID 
40  FOPMAT(1JX.6F10.2) 

R0«637  . 

RBS»RO*HC 
RMS  *P  BS ♦ Y M 
I *1 

25  FORMAT (12) 

50  READ  2 .AZ< I > . NUMTOT . NpTS 
20  FORMAT (F10.2* I 2. 8X12) 

CALL  BaCKS3(NUMTOT.NPTS.R8S,PMS,FCS»RBC,RMC,FCC,FMID,RANGEC. 
1GPATMC.NC.1) 

30  FORMAT  f 5F 10 . 2 ) 

PRINT  35* (FCC(.I) »RRC( J)»RMC< J ) »R ANGEC < J ) . GP ATMC < J > . J»l» NC > 

35  FORMAT (5X.5F11.4) 

NCI )»NC 
DO  60  J»1 » NC 
FC( I. J)sFCC(J) 

RB ( I » J ) =fi  BC ( J ) 

RM( I. J)*RMC< J) 

RANGE ( I ,J)»RANGEC(J) 

60  GPATM  I,  J>«GPATHC(  J) 
l«J*l 

IF  (I-N'AZ)  70.70.00 
70  FCS»FCC(1) 

RBS»BBr(l) 

RMS«RMf (1 ) 

GO  TC  5" 

00  IF<IND)180»85»180 

h5  READ  1 ,FW, A7M.GPM 

IF(FW)?'.' 1,202.203 

203  CONTINUE 

CAI  P»< 4370. *6370. *64 70. *6470 -GPM*GPM/4, ) / < 2 . *6370 . *6470  . > 
0EST*Af05F (CALP)*6370.*2. 

PRINT  4 '.FM. AZM.GPM.DEST 
IF (NAZ»1 >204,204.205 
205  CONTINUE 

DO  ICO  K-l.NAZ 
IF  (AZm-AZIK))  110,110,100 
100  CONTINUE 

110  FACTOR* ( AZM-AZCK-1) )/( AZ ( K ) - AZ < K-l > > 

N1»N  < K I 
N2«N<K-1) 

112  DO  120  J-1.N1 

IF  (LEST-RANGEIK. J) > 130.130.120 
120  CONTINUE 

130  FACT* (PEST-RANGE <K, J-l) >/ (RANGE (K, J) -RANGE <K, J-l)  ) 

FC1*FC(K, J-1)*FACT*(FC(K. J)-FC<K»J-1 > ) 

RB1*RB(K, J-1)*FACT*(RB(K, J).RB<K*J-1)  ) 

RM1*RM»K. J-l) -FACT* <RM(K,J)-RM(K» J-l) > 

PRINT  4' .FC1.RB1.RM1 
DO  140  J*1»N2 


J 
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IF  (CEST-RANGE<K-1. J) > 150.150.140 
140  CONTINUE 

150  FACT* <nEST-RANGE I K-l, J-l) > /(RANGE (K-1 ,J) -RANGE (K-l, J-l > > 
FC?«FClK-l. J-l > ♦F ACT* <FC IK-1. J)-FCtK-l. J«l> > 

RB?«PBIK-1. J-1 >*FACT»IRH(K-1. J)-RB<K-1. J-l)  > 

RM2»RM»K-1. J-l) ♦FACT* IRHIK-l. J)-RH<K-1# J-l) ) 

PRINT  4 .FC2.RB2.RM2 
FCl»FC?*FACTOR»IFCl-FC?> 

RBI»RB?*FACT0R*(RR1 -R82) 

RMJ»fiM?*FACTOR*<HMl-RM?> 

200  CONTINUE 

PRINT  4 .FC1.RRI.RMI 
DTPL«1. 

GPTOL ■ . 1 

CALL  dcalifci.rbi .RMI.FW.GPM.D.GRTOl) 

PRINT  4')#FW,  AZM.GPM.DEST.D 
IF  (AB*F<D-DEST)-DT0L>  170.170.160 
160  DEST«D 

IFINAZ-D204.204.112 
170  PRINT  4';,FW»  AZM.GPM.D 
GO  TO  P ' 

180  CONTINUE 

READ  2 KGO 

200  FORMAT(IIO) 

IF(KGO)201*202.201 

201  CALL  EvlT 
204  NlaNINAZ) 

DO  206  J«1.N1 

IFlDEST-RANGE(l.J) >207,207,206 

206  CONTINUE 

207  FACT»IDEST-RANGE(1. J-l) )/(OANGE(l. J)-RANQE(1,  J-l) ) 
FCI«FC<1, J-1)4FACT*(FC(1. J)-FC(1. J-l) ) 
RBT»RBi1,J-1)*FACT*<RB<1. J)-R8<1»J-1>  > 

RMI«RM(1,  J-l)  ♦FACT#  (RMU.J  >-RM<l.  J-l)  > 

GO  to 
END 


? 
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M NAmE  A? 

w EOIJIPmCARDRE.PRINTE.CARDPUi 

FUNCTIdN  FoGXIARG) 

•••••SUflR  F»GX  CHECKS  Td  MAKE  SURE  Wg  ARE  NOT  TAKING  THE  NATURAL  LOG  OF 
• ••••NGS  NUMBER. ..IF  WE  ARE  IT  FLAGS  THE  ERROR  BY  SETTING  FOGX  > 9999. 
C»«**«TME  INVALID  ARGUMENT  IS  PRINTED  OuT  WITH  AN  ERROR  MSG. 

IFIARGI13.20.20 
10  CONTINUE 

PRINT  15. ARG 

15  F0BKAJI29H  LOGF  ENTERED  WITH  nEQ  ARG  ■ . E13.7) 

P00X«9999. 

GO  TC  SO 

?0  FOflX«LOGFI ARG) 

30  RETURN 

END 


o ci  <?  o vji  o r>  ,i  no 
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m NAmE  A* 

* EOUIFbOARDrE.PRINTE.CARDPUI 

SUBROUTINE  FS T OFS ( F W. FC. MB. Tm.DoRTiGP.DSPDFC.DGPDRM.DGPDRB. RANGE. 

S9DEG ) 

''•••••THIS  Sl'BR  COMPUTES  THE  MlN  TIME  DECAY  TrACE(MIN  GROUP  PATH  VS  FREQ)  OF  A 
''•••••EAsTM-rONCENTRlC  O-P  1 0 T OSphERE  LA*EB  *s  WELL  as  The  DERIVATIVES  of  The 
r • ••• «THf  GRCUP  path  wrt  rb  » rm . A nD  fc.  it  is  A HOPEFULLY  more  rapid  version  of 
^•••••SUPR  DIFFS.  WHICH  DID  NOT  nSE  NEWTONS  METHOD  TO  FIND  TME  ELEVATION  ANGIE  B 
0«****BEtA  WHICH  MINIMIZES  THE  GoOUP  PATH  FUNCTION 

‘'•••••CALL  I NO  SEQUENCE 

''•••••  FW»(INP1|T)  FREQ  OF  TRANSMISSION  (MHZ) 

^••••*  FCb(INPuT)  CRITICAL  FREnuENCy  OE  Q-P  LAYER  (IN  MHZ) 

HE ■ ( INPUT)  RASE  HEIGHT  nF  O-P  LaYER  (IN  KM) 

/'••••a  Ym»  (INPUT)  SEMTTHICKNESS  OF  Q-P  LAYe*  (KM) 

^•••••OOPT»( INPUT)  TOLERANCE  OF  nROUP  RaTh  wRT  ELEVATION  ANGLE  , BETA  USED  IN 
^•••••FInDINO  MINIMUM  GROUP  P*TM  IN  KM/R*D 
''»••••  GP*  ( OUTPUT  > MIN  GROUP  PATH  (KM) 

^••••*  DGPMFCB(OUTPUT)  DERIV  of  MIN  GROUP  path  WRT  FC 
*"•••••  DGPPRMB(OUTPUT)  DERIV  MIN  GROUP  path  WRT  RM 

•••••  DGPPRBb(OuTPUT)  DERIV  MIN  GROUP  PATH  WRT  RB 

•••••  RANoEb(OUTPUT)  ground  range  oc  backsc*tter  PT  of  min  group  ray 

R0«637r  . 

R03»B0«R0 

RBbROyuB 

RB?bRB«R9 

RMbR8*vM 

RM?»RM*RM 

YM9»YM«YM 

FbFW/FC 

F2»F«F 

RBYM2»»B2/YM? 

AbF2-1  .*RBYM2 
SOA>SOROO(A) 

IF(SQAr9999. >50.950,50 


50  NERPT-1 


GO  TC  *00 
0 CONTINUE 

Bb.2.*RM«RBYM2 

•••••now  set  some  constants  up  for  further  use  in  the  iteration  loop 
•••••these  rONSTS  have  no  significance  In  THE  1974  paper  by  nnr 
C0n1*2 . •A*RB*B 
COn2«2.*RB*F«SOA 
92bB«B 
F2A«F  2/A 

COn3«2.*R0»(1.-F2A  ) 

C0n4« ( P»F2 A >»2.bR0 
C0n5b4.«Bbf2*F«R02/SQA 
COn6bRi'/R0 
COn7»8.«A*f2*R02 

•••••BiTPEN  IS  THE  PENETRATION  FLEVATtON  ANGLE  (BETA  MUST  BE  BETWEEN  0 
•••••AND  BETPEN) 

SOROOX»SOROO(RM2bR*YM2-B2/»4:*A) ) 

IF(9CRnOK-9999. ) 75  i960, 75 


l 


C 
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«60  NSRPTa? 


GO  TC  no 
75  CONTINUE 

BEtPEN"  < <l./<r*RO> )»SOROOX) 

BEtPEN  ■ ACOSCK(BETPEN) 
!F(0ETpEN-9999. >90.970.90 


070  NEpPT«S 


GO  TC  9)0 
90  CONTINUE 

C*«#**IN!TIAl I 7E  BETA,  THE  ELEVATION  ANGLE  OF  THE  GROUP  RAY  PUT  THE  INITIAL  GUES 
''••«»#RJGHT  IN  THE  MIDDLE  OF  THE  RANGE  OF  POSSIBLE  BETA  VALUES, 


BET  A»8l»TPEN#  • 5 

C**«*«ITERATE  HERE  FOR  NEW  VALUER  OF  BflTA  ( A T STATEMENT  1 0 0 » WHICH  MINIMIZE 
C*«**ATHF  GROUP  PATH  AT  A GIVEN  OPERATING  FrEQ  Fw  (USING  NEWTONS  METHOD) 


NTRY“  lr>  0 
ITfRCTaO 

100  SInBET.SIN(BETA) 

IT«RCT»ITErCTt1 

C«««*«IF  WE  WAVE  TRIED  TO  FIND  BFTA  SuCH  THAT  GP  IS  MINIMIZED  TO  WITHIN 

C«****DQpT  or  ZERO  100  TIMES  LET*  GIVE  UP 
ir(ITE»CT-NTRY>150.150.140 

140  PRINT  145.DGPT.NTRY 

145  FORMAT!//. 48H  FSTOIF  ROUTINE  CANNOT  MINIMIZE  DGPDB  TO  WITHIN  , 
«F3,3#1"H  KM  AFTER  .I3.6H  TRIES  ,//> 

PRINT  147  .BETA, DGPDB 

147  forma t (8h  beta  » ,f572.9h  ogpdb  4 ,fio,5> 

RETURN 

150  CONTINUE 

COfBETaCOSlBETAI 

CORBE2aCOSBET*COS0ET 

CRRBTM?*RM2-F2*R02*C09BE2 

CORGAMaRO*COSBET/RR 


oammaracosckicoSgam) 

IF (GAMMA-9999. >165.971,165 


971  NBRPTR# 

r •••••••••••••• •••••••••••••• 

print  972, beta, BETPEN, ITERCT 

972  FORMAT  f 8m  BETA  ■ . Rl2 . 5. 5X  1 Oh  BBTR§n  ■ » £12  . 5. 5X.  10M  ITERCT  » .14) 

SI 

GO  TC  410 
165  CONTINUE 

SlNGAMaSINF(GAMMA) 

COTGAMaCOSGAM/S INGAM 
VrC0N1*C0N2*S INGAM 
V2« V* V 
U»82-4.*ARC 
U2rU«U 

Fl,CC0N3aC0N4/V> 

02a2.«R)-C0N5«SlNBET/U 

DGRDBari«S!NBET*C0TGAM-G2*C09BET 

c*«»**branch  out  of  newton  iteration  loop  here  when  beta  is  found  which 

C««««*MInIMI?ES  DGPDB  TO  WlHIN  TOLERANCE  DGPT  (IN  KM/RAD  I 
IF( AISF( DGPDB )-DQPt> 800, 350,350 
350  CONTINUE 


I 


% 


r 

i 


i 


't  - ^ 


"HINT  ♦72#9ETA.BETPEN,lT6RnT 
SO  TC  900 
*75  CONTINUE 

OGAMCB»S !NBET*CON6/SORoOY 
0C0TC8»-DGAMDB/(SInGAM»SINGAM) 

0vnB«CMN2«C0SGAH»DGAMD9 

0FiDB».(C0N4/V?>*DvDB 

DuOB»-CON7»COSBET«R1NBET 

OF9D6».CON5<MCOSB6t/U«<SINRET/U2>»DuDB> 

DG»D82«DFlD8«S!NBET*C0TGAH*Fl*t Cas9ET»C0TGAM*SlNBET»DC0TDB> 
J«0F2CB»C0SBET*g2»Si»jBE7 
BEtA»8FTA.DGPDB/DGPD02 

C****4  I F BETA  WAR  BEEN  InCREmENTFD  TO  A NEG  VALUE  BY  NEWTONS  METHOD  UE  BETTER  SE 
'-••••♦SETTER  SET  BETA  BACK  TO  A i ITTLE  ABqVE  0 OR  «E  MIGHT  HAVE  TROUBLES  LATER  o 
!FtBETA)400»400.500 
400  BETA*. '<001 

“500  IF  (BETPEN»BETA)600, 600.700 

^00  BEtA«BFTPEn-.0001 

c«»«*4CHiCK  to  ensure  nEutons  method  is  not  causing  us  to  overstep  the 
C*****PEn)ETRAT10N  ELEVATION  ANGlF  BOUNOARy.  If  so  set  beta  back  TO  little  below 
0 ••••♦BE  TPE  N 
700  GO  TO  100 
400  CONTINUE 

'-•••••at  STATEMENT  800  THE  ELEVATION  ANGLE  8Et*  CORRESPONDING  TO  THE  MINIMUM  GRO 
^••••♦GRnUP  PATH  HAS  BEEN  COMPUTED  BY  SOLVING  FOR  THE  VALUE  OF  BETA  WHICH  FORCES 
^•••••DGPDB  to  0.  NOW  WE  CAN  COMPUTE  ThE  MINIMUM  GROUP  PATH  QPM 
UV?L0G.F0GX<U/V2> 

I F f UV2|  OG-9999. )85o, 974,850 

974  NERPT-A 


GO  TC  900 
A50  CONTINUE 

8Fa32"P*F/(A«SOA) 

GPm«CON3/CONA»S1NGAM-2.*RO*S  inbet 
S«(0FA3?*,5)«UV2LOG 
QPaGPM 

OPPFC1«2.*COn3/RO-2.48*<F2*A>/( A«V> 

OPOFC2«F2*R0*SINGAM/< A*FC> 

DP0FC3»BFA32/FC 

DP0FC4«.5*<1.-3.*F?A  )*UV2l  OG-4 . *F 2* ( C« A »R 02»COSBE2 ) /U 
S»4 . pF 2»R8/ V 

DGPDFC«DPDFC1«DPDFc2*DPDFC4*DPDFG4 
DP0RM2p.75/A*UV2L0G*2,*< A*om*RB*6) /U*2.*RB/V 
DP0RM1bBFA32/(RM*YM) 

0P0RH3«<  2,*B/V) *F«R8»SINGAM/90A*B*DP0RM2*(RMtRB) •( , 5»UV2LO0 tBj/U-B / V ) 
S/VI 

DGpDPMpDPDRM1*OPDRm3 

DPBRBi«(CON3*CONA/V)/(RO*StNGAM) 

DP0RB2»“RFa32/(RB»VM)»( ( 2 . *B/ V ) •F*R0*S I NG AM/SQ A* <RM* , 75*0/ A ) *UV2L0 
SG  ♦2,*P»IA*Rm2tB»Rm*C)/U»2.«YM#(A*RB*8>/V) 

DQpDRB«DPDRB1tDP0RR2 

SOC«SQROO(C) 


1 

t 
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IF< SCC. 99 99. >875.975.875 


979  NEpPT  *7 


GO  TO  »C0 
-79  CONTINUE 

Rl»2.MQC»RB*F»SINGAM*2tPC*9*RB 

R1?«R1*R1 

W«rOGX<U«R92/Rl2) 

R3« .9  *F •RO«COSBET*w/SQC 
RANGE »?. «R 0* (GAMMA. BE TA«RJt 
BDEG»BFT **57.2989 
RETURN 

900  FC»-A0*F<FC> 

PRINT  08  0 # NERPT 

980  formatiix,iooUh*i ,/.3nR  frtdfs  Error  at  point  number  ,I2,/,ix# 

$1 0 0 ( 1 H* ) > 

PRINT  «89,fW.FC»H8.TM#DGPT 
989  F0RMAT|1X,5E15.7) 

RETURN 

end 
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M NAmE  A 4 

M EOUIPaCARDRE.PRINTE.CARDPUi 

SUBROUTINE  FUNCKN.  APQ.VAl.GBAD) 

ni mENS TON  ARGm»GRAD<3).FnSMES(J0I.P8SMES<50>,GPC<50>,DGPC<50,3> 

DIMENSION  R An ( 50 ) » ST  A ( 50  > 

COMMON  FBSMES.PBSMES.DT.NPTS.RAN.BTA.GPCMID 

r, 

r*****SURRCUT INE  FUNCT  To  RE  USED  Rv  BAC*S3  BACKSCATTER  IONOGRAm  INVERSION 
0*****R0I|TINF«  it  EVALUATES  THE  GUM  squared  error  and  its  gradient  as  a 

0***»*FUNCT ION  OF  Q-P  LAypP  PARAMETERS  R8.  RM*  FC, 

r 

'•••••CALLING  seouence 

C*****N«( INPUT > CONTROL  PARAMETER 

C***«*  IF  n*3  FUNCTION  NORMALLY,  RETURN  VALUE  OF  ERROR  FUNCTION  AND  ITS 

c****»  gradient 

^•••••ARG“< IwPuT»  3 ELEMENT  array  OF  layer  PARAMETERS 
C**m*  ARG»1)»R0 

'’*••••  ARGf2J«RM 
AhG  < 3 ) *FC 

'^•••••val* i Output) value  of  error  function  f corresponding  to  current  value  of 

C****»  AEG 

C***«*GRaD-(PUTPIIT>  3 ELEMENT  array  with 
C*H«t  GR  AO  ( 1 ) aDE/DRB 

C*****  GR  AD ( 2 > "DE/DRM 

?•••••  GRAD<3)bDE/DFC 

0*****END  cf  input  sequence********* 

c 

FC.ARG(3) 

HBrARGi1)-6370. 

TMrARG<2)-ARG<1> 

C*****HErE  N*3  and  we  will  evaluate  e and  GRAD  of  e 
C*****FIrST  T N I T I Al I 7E  values  For  SUBSEQUENT  SUMMING  operation 
*0  SUmF*  0 

SUmDRBrG 
SUmDRMrO 
SUmDFC* J 
NMID*NPTS/2*1 
do  50  1*1* NPTS 

C*****F9tDFS  CALLED  TO  EVALUATE  mIN  GROUP  PATH  AND  ITS  DERlVS  WRT  RB.RM.FC  AS  A 
C*****FunCTIO.N  OF  FBSMES ( I ) , THE  ITH  TRANSMISSION  FREQ 
FBBM*FiSMES< I ) 

I Try*  o 

CALL  FBTDFS(FBSM,Fc,HB.YM»DT.GPcm.DQPC(  I#1).DGPC(  I.2>» 

SDBpCI I.3),RA»BT) 

ran  < i > *r a 

9TA(I )*0T 

C*****CATCN  AND  STORE  the  FINAL  VALUE  OF  THE  GROUP  PATH  CORRESPONDING  TO  THE  HID 
C*****0ACKSCATTER  LEADING  EDGE  POINT 
1FI I-NmID>46.47,46 
<7  GPCM1D*GPC(I  ) 

46  CONTINUE 

C NUMERICAL  ERROR  FLAGGED  IF  FC  NEGATIVE  . IF  SO  ABORT  JOB  BY  MAKING  N 

C NEGATIVE  AND  RETURNING  TO  MAINLINE  VIA  SUBR  FMFP 

If (FC ) 42*45*45 
42  N**3 

ARG (1 ) aAlSV 
ARG<2)*A2SV 
ARG ( 3 ) • A3S V 
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val»vaisv 
81SV«G»ADtl > 

G2SV«GRAD<2> 

G3$V»GRAD<3> 

return 

45  CONTINUE 

ERr«GP0U  >-PBSmES<  I ) 

ersq»err«err 
SUmF«SuMF*ERSQ 
SUmDR8«SUMDR0tERR»OQPC( 1.1) 

SUmDRM»SUMDRM«ERR«0QPC<  1.2) 

0 $UmDFC»SUMDFC*ERR»DGPC( 1.1) 

•••••NOTE  SUMF  NOW  CONTAINS  SUN  SOUARBO  ERROR 

•••••grad  contains  the  gradient  of  thB  suh  squawed  error 
val»sumf 

GRADH)32.»SUMDRB 

GRaD(2)«2.»SUM0Rh 

GRa0(3i>2.«SuHDFC 


• • 


••  NOTE  that  At  this  point  it  meat  be  DESIRABLE  to  insert  print  out  statemen 
••to  OITrUT  aRG.  VAL.GRAD#RA1'GE. and  8DEG  TO  OBSERVE  CONVERGENCE  OF  THE  ERROR 

• •FUNCTION  TO  A MINIMUM  aS  FmFP  DOBS  ITS  STUFF 

••alro  printing  out  range  and  bdeg  gives  us  some  indication  of  where  we  are 

••SAMPLING  THE  IONOSPHERE  IN  THE  CASE  OF  HORIZONTAL  GRADIENTS 

• • 


*1SV" ArG ( 1 > 
A2SV* ArG  < 2 ) 
A3S V" ArG ( 3 ) 
VAlSV«VAL 
GlSVaGRAD(l) 
82S V“GrAD  ( 2 ) 
G3S V*GrAD ( 3 > 
?00  RETURN 

end 
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001 

H 

NAME  AN 

U 

SOUIP«CARDRE.PRINTE.CARDPUi 

SUBROUTINE  FmFp<N,*,F.G,E ST, EPS. LIMIT,  lEP.H) 

C 

fmfp 

20 

c 

DIMENSIONED  dummy  variables 

FMFP 

30 

DIMENSION  H(l),K(ll,r.(l) 

FMFP 

40 

r 

fmfp 

SO 

C 

COMPUTE  FUNCTION  VALUE  AND  GRADIENT  VECTOR  FOR  INITIAL  ARGUMENTFMFP 

60 

CALL  FtlNCT(N.X.F.G) 

fmfp 

70 

IFjN)5A»100.100 

108 

CONTINUE 

fmfp 

80 

c 

RESET  ITERATION  COUNTER  AND  GENERATE  IDENTITY  MATRIX 

fmfp 

90 

IER-0 

fmfp 

100 

KOUNTr 

fmfp 

110 

N2«N«N 

fmfp 

120 

N3rN2*N 

fmfp 

130 

N3l«N3*l 

fmfp 

140 

1 

K«N31 

fmfp 

ISO 

DO  4 J*1 , N 

fmfp 

160 

M Cx ) ■! . 

fmfp 

170 

NJ.N-J 

FMFP 

180 

IF(NJ>5,5,2 

fmfp 

190 

2 

do  3 l*i»nj 

fmfp 

200 

KLbKtL 

fmfp 

210 

3 

H<kL>»  . 

FMFP 

220 

4 

K«KL*1 

fmfp 

230 

r 

FMFP 

240 

C 

start  ITERATION  LOOP 

FMFP 

250 

5 

«OuNT»*OUNT  *1 

fmfp 

260 

fmfp 

270 

c 

SAVF  FUNCTION  VALUE.  ARGUMENT  VECTOR  AND  GRADIENT  VECTOR 

fmfp 

280 

OLflF  »F 

FMFP 

290 

DO  9 J»1 » N 

fmfp 

300 

Krn«J 

M(m)»G( J> 

FMFP 

320 

KRKTN 

fmfp 

330 

H(k>»XI j> 

FMFP 

340 

c. 

FMFP 

350 

C 

DETERMINE  DIRECTION  VECTOR  M 

FMFP 

360 

KRJTN3 

FMFP 

3T0 

TRO. 

FMFP 

380 

DO  8 L»1»N 

FMFP 

390 

TrT-G(L>*H(K> 

fmfp 

400 

IF(L-J>6.7,7 

FMFP 

410 

6 

KRK*N*L 

fmfp 

420 

GO  tc  a 

FMFP 

430 

7 

KRKTl 

FMFP 

440 

a 

CONTINUE 

FMFP 

450 

9 

M( J>»T 

fmfp 

460 

c 

fmfp 

470 

0 

CMECK  WHETHER  FUNCTION  wlLL  DSCRE *SE  STEPPING  ALONG  H, 

fmfp 

480 

DYrO. 

FMFP 

490 

HNRM'O. 

FMFP 

500 

GNRMbO. 

fmfp 

510 

c 

FMFP 

520 

c 

CALCULATE  DIRECTIONAL  DERIVATIVE  And  TESTVALUSS  EOR  direction 

FMFP 

530 

c 

VECTOR  H AND  GRADIENT  VPCTOR  G. 

FMFP 

540 

r»  o on  i n a .1  f*  no  r>  o no  too  a a o a o o o on 


PASS  002 


DO  10  jal.N 
MNRMaHNRM4ABSF<H< Ji) 

QNRM»GtgRH**8SF(G(  J) ) 

10  DYtDY*H( J)aQ< J) 

!• 

repeat  search  In  D 1 RECT t ON  OF  steepest  descent  if  directional 

DERIVATIVE  APPEARS  TO  BF  POSITIVE  0«  ZERO. 

IFlDYMl, 51.51 

reppat  search  In  direction  OF  STEEPEST  descent  if  direction 
VECTOR  H IS  SMAi L COMPARED  To  GRADIENT  VECTOR  Gi 

11  IF(HNRm/GNRM-EPS>51,51,12 

search  MINIMUM  along  DIRECTION  h 

SEARCH  ALONG  H FOR  POSITIVE  DIRECTIONAL  DERIVATIVE 

12  Fy.F 

ALFA»2.#<EsT-F)/DY 

AmRDA ■!  . 

USE  ESTIMATE  FOR  STEPSl?E  ONl*  IF  IT  IS  POSITIVE  AND  LESS  THAN 
1,  OTHERWISE  TAKE  1.  AS  STEPSlZE 
IFiALFA)15. 15.13 

13  IF»ALFA-AMB0A>14.H,15 

14  AMSDARALFA 

15  alfa«o. 

SAVE  FUNCTION  AND  DERIVATIVE  VALUES  FOR  OLD  ARGUMENT 
10  FxrFY 
dx.dy 

step  argument  along  h 
DO  17  fal.N 

17  Xn)RXII»RAMBDA*H(I) 

COMPUTE  FUNCTION  VALUE  AND  GRADIENT  FOR  NEW  ARGUMENT 
CALL  FiiNCT (N.X.F.G) 

FYRF 

IFIN>5A,101,101 

01  continue 

COMPUTE  DIRECTIONAL  DERTVATlVE  Dy  for  NEW  ARGUMENT.  TERMINATE 

search,  if  dy  is  positive:  if  dy  is  zero  the  minimum  is  found 

OYaO. 

DO  18  !al,N 
10  DYaDY*8  < I > *H ( I > 

IFIDY  >19.36.22 

terminate  search  also  if  the  function  value  indicates  that 

A MINIMUM  HAS  BEEN  PASSED 

19  IFlFY-FX>20,22.22 

REPPAT  SEARCH  AND  DOUBLE  STEPSlZE  FOR  FURTHER  SEARCHES 

20  AMRDAaAMBDA+ALFA 
ALFA* AmBDA 

C END  OF  SEARCH  LOOP 

c 

C TERMINATE  IF  the  CHANGE  IN  ARGUMENT  GETS  VERY  LARGE 


FMFP  930 
FMFP  940 
FMFP  950 
FMFP  900 
FMFP  970 
FMFP  980 
FMFP  990 
FMFP1000 
FMFP1010 
FMFP1020 
FMFP1030 
FMFP1040 
FMFPl 050 
PMFP1060 
FMFP1070 
FMFPl 0 §0 
FMFP1090 
FMFP1100 


ci  .1  ci  i-*  ci  .1  a i 


»AG6  Oo3 

fmfpiiio 

FMFP1120 
FMFPU30 
FMFP1140 
FMFP1150 
FHFP1160 
FMFP1170 
FMFP11B0 
FMfPl 1 90 
F HF  Pi  20  0 
FMFP1210 
FMFP1220 
FMFP1230 
FMFP1240 
F*FP1290 
FMFP1260 
FMFP1270 
FMFP12B0 
FMFP1290 
FMFP1300 
FMFP1310 
FMFP1320 

r,  THAN  THE  FUNCTION  VALUE*  AT  THE  INTERVAL  ENDS.  OTHERWISE  BEDUCEFMFP1330 

THE  INTERVAL  BY  CHOOSING  ONE  END. POINT  EQUAL  TO  X AND  RFPEaT  FMFP1340 
THE  INTERPOLATION.  WH I rw  END-POINT  IS  CHOOSEN  DEPENDS  ON  THE  FMFP1J90 
VALiiE  OF  THE  FUNCTION  AwD  ITS  GRADIENT  AT  X FMFP1360 


CALL  F|INCT(N.X.F,Q) 

FMFP1370 

FMEP1380 

!F(N>  96,102.102 
CONTINUE 

IF(F-Fx>27,27,26 

FMFP1390 

27 

IF(F-Fr >36.36,28 

FMEP1400 

2R 

DALFA*  1. 

FMFP1410 

DO  29  1*1, N 

FMFP1420 

20 

DAl FA*nALFAYG( I >«H( I > 

FMFP1430 

IFIDALFA>30,33,33 

FMFP1440 

30 

IF(F-Fy>32.3l,33 

FMFP1490 

31 

IF«DX-nALFA>32,36,32 

FMFP1460 

32 

FX*F 

F->P 1 70 

dx.dalfa 

FHFP1480 

t.alfa 

FMFP1490 

ahbda*alfa 

FMFP1500 

GO  TC  ?3 

FMFP1510 

33 

IF«FY-F>35.34,35 

FMFP1520 

34 

IF(DY-0ALFA>35.36,35 

FMFP1530 

31 

fy*f 

FMFP1540 

dy«dalfa 

FMFP1590 

AMRDAaAMBDA-ALFA 

FMFP1560 

GO  TO  ?2 

FMFP1570 

COMPUTE  DIFFERENCE  VECTORS  OF  ARQUmEnT  AND  GRADIENT  FROM 

FMFP1580 

FMFP1590 

TWO  CONSECUTIVE  ITERATIONS 

FMFPlfcOO 

36 

DO  37  J«1,N 

FMFP1610 

K ■ N ♦ J 

FMFP1620 

H(K>«G( J)-H(K) 

FMFP1630 

k»n*k 

FMFP1640 

37 

H(k)«X(J)*H(K) 

FMFP1630 

FMFP1660 

IF(HNRM«AMBDA-1.E10I16.16,91 

r. 

<•  LINEAR  SEARCH  TECHNIQUE  INDICATES  THAT  NO  MINIMUM  EXISTS 

21  IER«2 
RETURN 

c interpolate  cubically  in  the  Interval  defined  by  the  search 

r.  aeovE  and  compute  the  aogument  x for  which  the  interpolation 

C POLYNOMIAL  IS  MINIMIZED 

22  T»o. 

23  IF(AH8nA)24,36.24 

24  Z«3.« (FX-FY)/Am8DA*DX*DY 
ALFA«MaX1F ( ABSF ( Z ) , ABSF ( Dx  w A8SF (DY) ) 

OAl  FA»7/ALFA 

DAlFA»oALFA»DAlFA.Ox/AL^A#OV/ALFA 
IF  lD*LFA)5l*25,25 
W«ALFA.SORT(DALFA) 

ALFA»(0Y*W-Z>*AMBDA/<Dv*2.»W-DX> 

DO  26  1*1, N 

20  X{  l ) * X < I >*<T-AI.FA)«H<  I ) 

r 

c terminate,  if  the  value  of  thS  actu*l  function  at  x is  less 
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c 


c 


34 

39 


40 

41 


4? 


43 


44 

44 

44 


47 


44 


4« 


90 


terminate,  if  function  mas  not  decreased  during  last  iteration  fmfputo 


IF<0LDF-F*EPS>41.38,38 

FMFP1680 

FMFP1690 

test  length  of  ARGUMENT  DIFFERENCE  vector  and  direction 

VECTOR 

FMFP1700 

IF  »T  LEAST  N ITERATION*  HAVE  BEEN  EXECUTED,  TERMINATE. 

IF 

FMFP171A 

BCTu  ARE  LESS  TMAN  EPS 

FMFP1720 

IEB»0 

FMFP1730 

iriK0UNT.N)42,39,39 

FMFPI740 

T«0. 

FMFP1790 

z»o . 

FMFP1760 

DO  40  J«1,N 

FMFP1770 

k«n*j 

FMFP1780 

W»M<K  ) 

FMFP1790 

k*k*k 

FMFP1800 

T»T*ABsF(HIK)  ) 

FMFP1810 

FMFP1020 

IFIHNRM-EPS>41.41,42 

ir<T-EpS>55.55,42 

FMFP1830 

FMFplSSO 

terminate,  if  number  of  iterations  «o^ld  exceed  limit 

FMFP1860 

IFtK0UNT-LIMIT)43.S0.50 

FMFP1870 

FMFP1880 

PREPARE  UPDATING  OF  MATpIX  H 

FMFP109O 

alfa«o. 

FMFP1900 

DO  47  J»1»N 

FMFP1910 

KPJ+N3 

FMFP1920 

W«0  • 

FMFP1930 

DO  46  L"i#N 

FMFP1940 

KLpNpL 

FMFP1940 

W*u*MkL>»H(K> 

FMFP1960 

ira-J)44,45.45 

FMFP1970 

KPK+N-L 

FMFP1980 

GO  TO  46 

FMFP1990 

KPM41 

FMFP2000 

CONTINUE 

FMFP2010 

k»n*j 

FMFP2020 

ALT A«Al F A*W«H ( K ) 

FMFP2030 

H ( J ) «M 

FMFP2040 

FMFP20SO 

REPEAT  SEARCH  In  DIRECTION  of  STEEPEST  DESCENT  IF  RESULTS 

FMFP2060 

are  not  satisfactory 

FHFP2070 

IF(Z«Al FA  ) 48.1. 48 

FMFP2080 

FMFP2090 

UPDATE  MATRIX  H 

FMFP2100 

K*n31 

FMFP2H0 

DO  49  t «1.N 

FMFP2120 

KL*N2*L 

FMFP2130 

DO  49  j»L,N 

FMFP2140 

N J»N2* J 

FMFP2140 

H|k)bH(K)*H<KL)*H(NJ)/7»HO  UH( JI/AlFA 

FMFP2160 

K«K*1 

FKFP2170 

GO  TO  s 

FMFP2180 

END  OF  ITERATION  LOOP 

FMFP2190 

FMFP2200 

NO  CONVERGENCE  AFTER  LIMIT  ITERATIONS 

FMFP2210 

IlMl 

FMFP2220 

return 

FMFP2230 

FMFP2240 

r r ' tG '5-*  . 


c restore  old  values  of-  function  *nd  arguments  fmfp225o 

5t  00  52  J«1,N  FMFP2260 

Krn2«J  FMFP2270 

5?  XCj>«MCK>  FMFP22B0 

CALL  FliNCTtN.X.F.Gj  FMFP2290 

IF  *N)5A»103»103 
103  CONTINUE 

r : FMFP2300 

C REPFAT  SEARCH  In  DIRECTION  OF  STEEPEST  DESCENT  IF  DERIVATIVE  FMFP2310 

C FAILS  TO  BE  SUFFICIENTLY  SMALL  FMFP2320 

IF»GNRm-EPS)55.55,S3  F MFP2330 

C FMFP2340 

C TEST  FOR  REPEATED  FAILURE  OF  ITERATION  FMFP2350 

53  IFf IER >5**54,54  FMFP2360 

54  FMFP2370 

GOTO  1 FMFP2380 

55  IER»C  FMFP2390 

PR  JNT  57.K0UNT 

S7  FORMAT*//, 22H  FMFP  CONVERGPD  AFtSR  .I4.11H  ITERATIONS  ,//) 

5A  RETURN  FMFP2400 

END  FMFP24/0 
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NAME  Aa 

60UlP»CARDRE.PRlNTE,CARDPUl 

SUBROUTINE  BACkS3(NUMT0T.NPTX.RBSTRT.RMSTRT,FCSTRT,RBB,RMM,FCC» 
SFMtD,RANMlD*GPTHMD.NUSED.PBNTSW) 

DIMENSION  x(3)»G(J),M(32) 

DIMENSION  FBSMES<50).PBSMEK<50> 

DIMENSION  RANIS!))  ,BTA(50>  ,O0B<2Ol  ,RMM<20)  .FCC<20>  ,FmID<20) 
DImENSIONRANMID<20),GPTHMD(20) 

COMMON  FBSmES.PBSM(?S.DT»NPTS.RAN»'BTa.GPCMID 


•••••THIS  IS  SUBROUTINE  FOR  the  MIN  SUM  SQUARED  ERROR  NOISY  BACKSCaTTER  LEADING 

•••••edge  inversion  procedure,,. 

•••••DEbCPIRED  IN  QUARTERLY  REPORTS  3,4,5  0^  UR,  yEH  AND  Dr,  RAO  S AIR  FORCE 
• ••••UrCRLI  CONTRACT  NUMBER  f 1 9628-75-C-0088,  1975-1976 


subroutine  Input  parameters  follow 

NUmTCT»T0TAL  number  of  points  SCALED  from  ionogram  BACSCATTEP  LEADING 
EDGE  WHICH  ARE  TO  BE  INVERTED  IN  GROUPS  OF  NPTS 
NPtS«N!iMBER  OF  POINTS  IN  EACH  group  of  OATA  that  will  be  successively  inv 


Far  EXAMPLE. ..to  PROCRSS  12  BACKSCATTER  IONOGRAM  PTS  BY  INVERTING 
OVERLAPPING  GROUPS  OF  4 POINTS  AT  A TIME,  WE  LET  NUMT0T"1?AND 
N!lMGRP»4. 

NOTE  THAT  THE  START  I NO  SET  OF  ESTIMATED  LAYER  PARAMETERS  IS  USED 
IN  INVERTING  THE  FIRST  SET  OF  BACKSCATTER  LEADING  EDGF  POINTS.  EACH 
SUBSEQUENT  SET  USES  THE  IMmSDUTELY  PRECEEDING  SOLUTION  AS  THE 
STARTING  POINT. 

RBSTRT.STARTing  VALUE  RB  In  KM 
RMSTRT*START1NG  VALUE  RM  in  km 
FCsTRTbSTArTING  VAi uE  FC  in  MHZ 

OUTPUT  parameter  defns... 

RBB-VECTOR  OF  RB  PARAMETERS  OBTAINED  FRO*  THE  SUCCESSIVE  INVERSION  OF  THE 
SETS  OF  NPTS  POINTS 
RmmbVECTqR  OF  RM  PARAMETERS 
FCC-VECTOR  OF  FC  PARAMETERS 

FMtD»VfCTOR  OF  THE  FREQUENCIES  CORRESPONDING  TO  THE  MIDDLE  BACKSCATTER 
LEADING  EDGE  POINT  IN  rHe  SUCCESSIVE  SETS  OF  NPTS  POINTS 
RAnMIDbVECTOR  of  ranges  IN  KM 
gpthmd-vector  of  QROUP  PATuS  in  KM 

NUSED aNUMBER  OF  SETS  OF  NPtS  POINTS  SUCCESSFULLY  INVERTED  FROM 
BACKSCATTER  LEADING  EnGE 
PRnTSW»3«D0  NOT  PRINT  INTERMEDIATE  RESULTS 
PRnTSW«1«PRInT  INTERMEDIATE  RESULTS 


•••••DESCRIPTION  OF  DATA  DECK  TO  BE  RBAD  In  BY  SUBROUTINE 
•••••PARAMETER  CARD  DESCRIPTION  IN  4F10.S  FORMAT 

• ••••DT  IS  THE  TOLERANCE  IN  THE  DERI  V OF  TH§  MINIMUM  GROUP  PATH  WITH  RESPECT 
••••«  TO  BETA,  TYPICALLY  SET  TO  .85  KM/RAO. 

•••••  EST  ■ ESTIMATED  MIN  VAl"E  OF  SUM-SqUaRED  ERROR  FUNCTION  E (IN  SO  KM) 


t 
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<*•••••  UPON  WHICH  THE  MINIMISATION  PROCEDURE  BASES  ITS  STEPSIZF 

Ctitu  EPS»T0L  TO  WHICH  MInIMijm  IS  TO  BE  COMPUTED  CSUBP  FmFP  USES  IT  TO  DETERM 

Cs»«»S  when  TO  TERMINATE  MINIMIZATION  ITERATIONS) 

'*•*•••  LIMIT»MAXIMIJM  NIJMRER  OF  ITERATIONS  ALLOWED  IN  MINIMIZATION  ITERATION 
LCOP  BEFORE  GIVING  UP 
r 


NPtS"NPTX 
*11 >»RrSTRT 
<(P)«RmSTRT 

x(s>»fcstrt 

XI1)*STARTING  VALUE  RB  IN  KM 

(:•••••  XI2>»STARTING  VALUE  RM  tN  km 

O**#*#  X ( 3 t »S T A RT I NG  VALUE  FC  TN  MHZ 

READ  1 , DT.EST.EPS. XL ImIT 
10  FORMA  T I 4F 10 . 5 ) 

LlMlT»XLIMIT 

NUMSET»NUMTOT-NPTS*l 

NUREC"NUMSET 

JAPRAYal 

00  101  ICT«1.NUMSET 


C***#*S A VE  STARTING  VALUES  IN  CASE  WE  WANT  TO  ABORT  ATTEMPT  AND  TRY  AGAIN 

xsvi"xa ) 

XSv2»Xl2> 

XSv3»X  < 3 ) 

C*****KTB0  INDICATES  FIRST  ATTEMPT  AT  MINIMIZATION 
KT»0 

ESTSVE»EST 

C««##*FIbST  INITIALISE  FilNCT  BY  READING  IN 

C«***rIN  AND  PRINT  OUT  THE  NUMPT  POINTS  SCALED  OFF  LEADING  EDGE  OF  BS  IONOGRAM 
('•••••AS  WELI  AS  READ  IN  THE  TOLERANCE  TO  WHlCM  THE  MIN  GROUP  PATH  IS  FOUND  IN 
C**«**SUPRCUTlNE  FSTDIF  AND  fHE  NUMBER  OF  IONQGRAM  PTS  USED  IN  DEFINING  THE  ERRO 


0*»«**ERR  OR  FUNCTION  E.  IN  SUBROUTINE  KuNCT,... 


iriPRNTSWJUP.  121.119 
119  CONTINUE 

PRINT  12,  DT 

C#«***DT  IS  THE  TOLERANCE  OF  DERTV  OF  GROUP  PATH  WRT  BETA  ( KM/RAD ) 

C*»R**FOR  LSF  IN  FSTDIF  ROUTINE  WHEN  IT.  COMPUTES  THE  MIN  GROUP  PATH 

12  format f/«54Hi tolerance  of  nERlv  of  group  path  wrt  beta  <km/rad>  ■ 

S ,F5.3//> 

C**«**NPTS  Is  THE  NUMBER  OF  POINTS  SCALED  FROM  LEADING  EDGE  OF  8 S IONOGRAM 
C***#*F OR  LSF  IN  EVAlUATtNG  TME  SUM  SQUARED  ERROR  FCN 
PRINT  13,NPTS 
121  CONTINUE 

13  FORMAT!/,  61M  NUMBER  OF  SCALED  IONOGRAM  POINTS  TO  BE  USED  IN  ERROR 

S FCN  ■ ,12) 

I F ( I CT  -1)130.129,130 

129  READ  U. (FBSMESI I >.PBSmES(T). I-liNPTS) 

('•••••here  the  leading  edge  points  are  read  in 

16  FORMAT  (2F10.5) 

GO  TO  150 

130  DO  H5  IND«2.NPTS 
F0SMES! IND-1)»FBSMES( IND) 

145  PBSMESf IND-l)sPBSMES( IND) 

READ  1A.FBSMES (NPTS).PbSMER (NPTS) 

190  CONTINUE 

IF  <PRnTSW)151.201,151 
151  CONTINUE 
PRINT  17 


j 
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17  FOHMAT(53H  MEASURED  POINT  ON  BACKSCaTTEr  IONOGRAM  LEADING  EDGE  , 
S/.QX.ISHFREQUENCY  (MHZ)  . AX . 6X , 15HGR0UP  PATH(KM)  ) 

PRINT  19. <FBSMES( I ) . PBSMES ( I > , I«l.NpTS> 

19  F0RMAT(/»llX.F8.3,19X,F8.3./> 

PRINT  30, X(1).X(2).X(3), EST, EPS, LIMIT 
30  FORMAT ( 26H  STARTING  VAiUE  R0  (KM)  • .F8.4.8X. 

$25u  STARTING  VALUE  RMIKM)  ■ ,F8.4,8x. 

s27m  starting  value  fc  <mhzi  • .F0.8,/. 

*37W  ESTIMATE  OF  MIn  SUM  SQUARED  BRROR  * .F10.5,/, 

J27W  EXPECTED  ABSOLUTE  FRROb  * »FlO.0»/« 

S3?M  MAylMUM  NUMBER  OF  ITERATIONS  ■ ,\4////) 

N«3 

CALL  FtlNCT(N.X.VAL.G) 

PRINT  ?1.VAL.G 

’I  FORMAT (33H  INITIAL  SUM  SQUARED  ERROR  (E>  a . E12.5,/. 

S9H  DEDrB  ■ .E12.5.SX, 

S9h  DEDPM  • .E12.5.5X. 

S’H  DEDFC  ■ »El2.5,//) 

301  CONTINUE 
N"3 

0LDMIN«99999. 

C*«p«*THIS  BUSINESS  ABT  OLDMIN  HAS  TO  Qo  WITH  NUMERICAL  ERROR  PRO0  IN  FSTDIF  SUB 
C#p««#SEE  STATEMENT  3600  TO  SEE  uH AT  I AM  TALKING  ABOUT 

C*«**pFMFP  IS  THE  NONLINEAR  MINImI7ATI0N  ROUTINE  FOUND  IN  IBM  SCIENTIFIC  SUBR 
Cp*#«*SURRCUTINE  PACKAGE.  IT  INTERNALLY  CALLS  FUNCT  TO  PERFORM  SUCCESSIVE 
^••••EVALUATIONS  OF  THE  SUM  SQUARED  ERROR  FUNCTION  AND  ITS  GRADIENT 
32  CALL  FMFP(N. X.FMINlG.EST. EPS. LIMIT. IER.H) 

Caia.aIF  NLMPRICAL  ERRORS  SUCH  As  SORT  (NEG  NjMBER),  LOG (LESS  THAN  0).  OR 

c««*##ACftS( Greater  than  d were  flagged  In  tme  evaluation  of  funct,  n is 
c**#*»negated  and  so  we  test  tor  this  error  conditip-  upon  exit  from  fmfp 

IF(NJ25»27,27 

35  PRINT  36.KT.EST 

36  FORMAT ( ///30H  NUMERICAL  ERRORS  ON  TRY  NR  a .12.16H  WITH  EST  MIN  a 

*■  ,F7 .5, /// ) 

KTpKT+1 

C#pp**SET  N RACK  To  *3 

Na.N 

CALL  FuNCT(N.X.FMlN.G) 

CP***»EVALL AtE  FmIN  ON  BASIS  OF  pArTIALL*  IT6RATED  PARAMETERS  JUST  BEFORE  NUMERI 
CP#p#*NCmER IrAL  PROBLEMS  WERf  ENCOUNTERED 
IF (0LDmIN-FMIN)261 0.2610. 2*08 
2600  SOLNlPX(l) 

SOLN2a*(2) 

SOL  N3»x  ( 3 ) 

SyMlNaPMlN 
GSvl”G ( 1 ) 

GSv2«G ( 2 ) 

GSv3»G (3 ) 

OLDMlNaFMlN 

2610  continue 

Cppppp I F THIS  is  7th  TRY  GIVE  UP  ENTIrBL* 

IF(KT»?>260. 270.270 

C»««*«IF  NLMPRICAL  ERRORS.  Ai  TER  EST,  WHICH  WILL  DECREASE  THE  STEP  SIZE  AND  TRY 

Cp«««sTRy  again,  first  GO  Back  to  orighInal  starting  solution 

260  IF(FMIn-BST>262,262,261 

C«*P«SIF  our  estimate  was  too  small  increase  it 

261  6STrEST*10  . 

GO  TC  363 
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r***»»!F  our  estimate  wa<?  too  labgf  decrease  it 

362  SST»EST/10. 

263  CONTINUE 
X(1 >«XSV1 
X(?)«XsV2 
X ( 3 > ■ XS V3 

C«*###NOw  GO  BACK  TO  22  AND  TRY  AGAIN 
GO  TC  ?2 
270  PRINT  771 

371  FORMAT  f // * 57H  WILL  GIVE  UP  TRYING  Tq  INSERT  IhJS  LA»A  AFTgo  7 
SMPTS.//) 

PR  t NT  375 

773  FORMAT  (190(lHS)»/»106H  W I Li  USE  LAST  VALUES  "F  ITEMED 

t BEFCRF  NUMERICAL  PRDBi  EM  ncCURRED--NOTE  FmFP  DIR  Nn  Y C 0>  » c °G F , / . 
S.loO<luS>,//> 
xd  ) * sol  ni 
X ( 9 >■ SOLN2 
X ( 3 > *SOLN3 
FMTN'SVMIN 
G ( 1 > »GS VI 
G ( ? ) «GSV2 
G ( 3 > »GSV3 
GO  TO  30 
27  CONTINUE 
C 

C*»»*#1EP«0,  A VALID  MINIMUM  WITHIN  ThB  SPECIFIED  TOLERANCE  <fc»S)  .»<•  •'  -»  • 

C*««**FMPP 

C****«  I ER»1 * A MINIMUM  WAS  NOT  FOUND  IN  TmE  SPECIFIED  (U“IT)  NU-BEP  o* 
C**«*»IER»»1.  IMPLIES  ERROR  IN  GRADIENT  CALCULATION 
C««**#IER»2,I  INEAR  SEARCH  CANNOT  FIND  M I N I MtiM 
C 

IFfPRNTSW  >301.401. 301 
301  CONTINUE 

I GO  TC» I ER*2 

GO  TC(30.32.34,36), IGOTO 

32  PRINT  33 

33  FORMAT  f ///»60H  VALID  MINIMUM  FOuND  BY  FmFP  wITHIn  SPECIFIED  TOLERanCF  EPS 

SNCP  EPS  > 

GO  TC  38 

30  PRINT  S3 

31  FORMAT! ///.33H  ERROR  IN  FMFP  GRADIENT  CALCULATION  > 

GO  TC  30 

34  PRINT  35. LIMIT 

35  format ( /// , 86H  err  fcn  coiji  d not  be  minimized  within  the  specified 

S NR  <LTMIT>  OF  ITERATIONS  iIMIT  3 .15) 

GO  TC  38 

30  PRINT  37 

37  FORMAT!///. 45H  LINEAR  SEARCH  IN  RmFp  COULD  NOT  FIND  MINIMUM) 

38  CONTINUE 

C*****PR!NT  INVERTED  L AY pR  PARAMeTERS  AS  WELL  AS  MINIMUM  VALUE  OF  SUM. SQUARED 
C*»»*pERPOR  FUNCTION 

PRINT  40.X.FMIN  ,G 

40  FORMAT!///. 29H  ITERATED  VAl UE  OF  RB  !kM)  » ,F6,2,  5*. 

$29h  itprated  value  of  rm  um>  ■ af6.2.  5X» 

J30H  ITPRATED  VALUE  OF  FC  (KHZ  ) * , F 8 , 4 . / • 

S25H  MIN  SUM  SQUARED  ERROR  ■ .F10«5«/ 

S9H  DEDpB  • .E12.5.SX.9H  DEORM  « /E12.5.5X.9H  DEDFC  ■ ,El2,5> 

PRINT  91 


RAGE  005 
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■0  FORMAT* //104H  RANGE  AND  ELEVATION  ANGLES  CORRESPONDING  TO  THE  NPTS  B 

s backscatter  leading  edge  points  used  in  inversion  ./> 

AO  PRINT7  .(I.FBSmES(T).RaN(I).BTA<I>,I»1,NpTS> 

70  F09MATI3N  F(.I2.4H)  * .F7.4.4H  HMZ • 5X . 23*M I N GROUP  RANGE  (KM)  ■ , 

|F9 . 3, 5x  » 3 OHM  I N GROUP  ELEV  ANGLE  (DEG)  » .F6.3) 

401  CONTINUE 

^•••••HEbE  W*  SAVE  The  RESULTS  of  the  RRESEnT  npts  inversion 
R0B(JAPRAY)»X(1  ) 

RMm(«ApRAY)»X(2  > 

FCC(JAbRAY)"X(3> 

NMTDL»nPTS/2*1 
FMtD(jARRAY>»FBSM6s(NMlDL > 

RAnMIDI JARRAy)«RAN(NMIDL> 

QPtHND* J array >«GPCm id 
JABRA  YbJARRAym 

100  continue 
est-estsve 

101  CONTINUE 

C*»*#*PRINT  OUT  SUMMARY  OF  THE  INVERTED  BaCKSCATTER  IONOGRAM  POINTS 
pR T NT  7r  3*NUSED,NPTS 

700  FOBMAT«lHl.//*100 (1h*» ./,50H  SUMMARY  oE  THE  BACKSCATTER  LEADING  EDG 
SGE  INVpRSlON./.lX. t2.0H  SETS  0F,I2#44h  OVERLAPPING  SETS  WERE  SUCCE 
SSSTVELY  INVERTED.///) 

PRINT  710 

710  FOBMAT I 84H  RB  (KM)  RM(KM>  FC  <MHZ>  FREQ  <MHZ>  RANGE  <KM> 

S (KM)  MIN  GROUP  PATH  (KM)  /) 

PR  t NT  720, (RBB(J),PMM(J).FCC(J),FMID<J).RANMID(J), 

*GPtHMD( J>, J-l.NUSEO) 

720  FOBMAT(2x,F9.3.1X,F10.3,Fin.3,3xiFl0.3.4X,F10 .3.9X.F10.3) 

RETURN 

END 


% 


* 
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w NAME  A? 

H EQllIF»CARDRE.PRINTE»CARDPlJi 

SUBROUTINE  DCAL <FC.  RR,RM,Fu,GP,D,GPTO|_ ) 

R0«637  . 

S!nBET.(RB*RB-R0*R0-GP*GP/4 . >/<R0»GP) 

BETA»ArINF(SINRET) 

BET  A«  0 . 0001 
20  CORBET.COSF(BETA) 

SInBET-SINF(BETA) 

f»fw/fc 

FF»F*F 

ym»Rm-pb 

R0YM2aRB«RB/< YM»YM> 

a«fF"1 . ♦rBym2 
B«-2.*oM«RBYm2 

C"BBYM?*RM*RM-FF*Rn*RO*COSP6T*C0SBET 

U»P*B-4.«A*C 

GAm«ACbSF ( (RO/R0) ‘CORBET) 

BInGAM»SINF(GAM) 

CO«GAM»COSF(GAM) 

cotgah»cosgam/s  ingam 

SO»»SORTFtA) 

V«?.«A»RB*B»2.*HB*F*SQA*SImGAM 

GPr»2 .« (1 ,-FF/A )«RR*S INGAM-2 . *R0«S I NBET- < B*F / < 2 . *A *SOA ) >*LOGF 
I«u/<V*V)  > 

IF  (ABBF(GPC-GP)-GPTDL)  100,100,50 
50  DGoDB*? .• (1 ..FF/A«B*FF/( A*v) )*RO«SlNBET«COTGAM 
l-2.*(l.-(2.*R*F«FF«R0«SlNBcT)/(S0A*un*RJ*C0SBET 
PRINT  4 ,Fw,GP.BETa,GPC,DGpDB,FC,RB,RM 
40  FORMAT I6X.8F10.2) 

9ETA«BpTA*(GP-GPC)/DGPDB 

SIm0ET«SINFIBETA) 

GO  TO  ?J 

100  SQC»SQBTF <C> 

Um9 ,*SoC«F *RR«S INGAM *2. »C*R*RB 

D»»GAM.BETA)-(F*RO«COSBET/f 2 ,#SQC) )*LOGF (U#RB*RB/(W*W ) ) 

0*7  • #RO*D 

RETURN 

END 


H NAME  a a 

H EQUlP«rARDRE,PRINTE,CARDPUi 

FUNCTION  SOROO(ARQ) 

C 

UR  ROUTINE  SORflO  CHECKS  TO  SEE  IP  WE  ARE  TRYING  TO  TAKE  THE  SORT  OF  A NEG 
C**««*NUM0ER.  IF  WE  SO  THEN  an  FRROR  CONDX  Is  ELAGGeD  and  THE  APG  IS  printed  ou 
C***»*W !TH  A MESSAGE...  THE  FLAGGING  IS  Done  BT  SETTING  SOROO  * 9999. 
C#*«*«WiTHCUT  SUCH  A SUBROUTINE  THE  G20  W|Ll  SIGN  YOU  OFE  IN  A HURRY 
r*«#«#KEpP I NG  US  EROM  GETTING  TO  ANY  GOOD  DATA 
0 

IF(ARG>10,20.20 
10  CONTINUE 

PRINT  15.  ARG 

1 5 FORM*T«29H  SORT  ENTERED  WITH  NEG  ARG  ■ ,E13.7) 

3QR0C»9999. 

GO  TC  so 

20  SOROO"SQRT(ArG) 

jo  return 

end 


COMPUTE  INPERP,  FACTORS  \ 


UB8TT  i RANGE  (K,j)  * 


N6 

ST 

u 

LE_\ 

TTmv 


Figure  A. 3.1.  Flow  chart  for  main  program. 
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OBTAIN  FC,  B-B,  RM  FROM 
ARG(0,ARGtt)yAR<K3) 

INITIALIZE  SUMF.  SUMDRB , SUMDRM, 
SUMDPC  TO  HERO 

* ■ ■ ~ 

compute  nmid--  middle  of 

FREQUENCY  GROUP 
NMID  ■ NPTS/2  + 1 


STORE  RANGE  t,  ELEVAT'ON  ANGLE 


STORE  THE  COMPUTED  MIHIMUT 
GROUP  PATH  AS  GPCMID 


SBT  N--5 

AN  ERROR  OCCURSD  IN  FSTDFS 
STORE  SEVERAL  VARIABLES 


RETURN 


COMPUTE  THE  DIFFERENCE  BETWEEN  THE 
OBSERVED  MIN-  GRP.  ROTH  (FRONT  BSc) 
AND  COMPUTED  MIN-  GRP.  PATH  ( FROM 
-P  MODEL)  FOR  FREQUENCY  INDEX  I. 


...  I , — 

SQUARE  The  difference  (ersq)  i 
1 ACCUMULATE  OVER  T.  ALSO  ACCUMULATE 
|SrRAD»ENT  OF  ERSQ  ( WRT  QPP)  

, * — 
-4STORE  GRAWENTS,QPP,  RESIDUAL  ERSCS} 


I return! 


Figure  A. 3.2.  Flow  chart  for  subroutine  FUNCT. 
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STORE  INITIAL  VALUES  OF 
RB,  RM;  FC  AS  COMPONENTS 

OF  A VECTOR 

J 

1 

READ  TOLERANCES’. 
DT,  EST,  EPS,  X LIMIT 

COMPUTE  NUMBER.  OP  DIFFERENT 
OP  G?PP  TO  BE  DETERMINED 
(NUMSET) 

INITIALISE  TARRAY  to  1 1 


SETS 


INITIALISE.  KT  TO  0 
SAVE  VALUES  OP  X VECTOR.  BY 
ysvi.Ki),  XSV2»  xG^xsva-xia) 

r 


PRlNTSW  = Q ? 

[mo 

PRINT  PT  j,  NPTS  | 

-■».  r 1 1 

rcrr*  t ?L- 


yes 


READ  B3I  POINTS  AS  A 
FREQUENCY  ARRAY  (FfiSMBS) 

$ A CjROUP  PATH  ARRAY  [PBSMES)| 


t—  PR.N7SW  = O ? 


YES 


kMO 


PRINT  BST  POINTS  USED  IN 

constructing,  present  q-p 
model,  etc. 

Lj  CALL  EUNC.T 


SET  N*3 

OLDMIN  « 9999 


PRINT  SUMMARY  OF  G?PP$ 
FREQUENCIES,  RANG.ES,  $ 
MiN.  &RP.  PATHS 


(PREPARE  COMPUTATION  FOR 
NEXT  SET  OF  B3I  POINTS  fiY 
&HIFTIM&  FBSMES  ± PBSMES  i RDG 
1 MORE  BSE  POINT 


FB9M6S(IND-l)*  FBSMESCIND)  I 
PeSMES  (INP  -V)  = PBSMES  (INpj 


_?EAD  NEXT  B8I  POINT  4 
STORE  T AS  FBSMESlNPts), 
PBSMES  CNPT5) 


Figure  A. 3. 3. a.  Flow  chart  for  subroutine  BACKS3 

(continued  on  next  figure) . 


'<r  ' if--*  , > 


I 


CALL  FMFP 


N<0? 


IN  FNAFP 

print  kt  t bst 


INCREASE  KT  BY  * 
lKT»  KT>0 


SET  N*- 


NO  ERRORS  OCOJRRD  IN  FNAFP. 

CHECK.  IF  M^NlM\2AT\ON  WAS  SUCCESSFUL 
IF  NOT,  PRINT  NAE96A&E 


SAVE  VALUES  OF  QPP 
SET  OLOMlN’FKAm 


FMIW  & EST  ? 


*ET  EST»EST/tO 


SET  EST*EST»10 


ERRORS  CONTINUE  To  BE 
GENERATED  IN  FN\FF>. 
SUBROUTINE  DEFAULTS  BY 
SbV  i iN&  C?pp  To  VALUES 
OBTAINED  BEFORE  FNAFP  & 


l 


RESTART  MININA12AHON  USING  V6V1 

xsva,  *ysv3  for  *ct),x ca^YO) l 
NEW  VALUE  OF  EST. 


PRINT  QPP  ^ ERROR. 
GRADIENT 


STORE  VALUES  OF  RB,RNA,FC 


iTARRAT-  TARRAY-H 


j RESET  EST  TO  ORIGINAL.  VALUE 


Figure  A.3.3.b.  Flow  chart  for  subroutine  BACKS 

continuation  of  Figure  A. 3. 3. a). 
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COMPUTATION  OF  SOM6 
QP  PARAMETERS 


A-  W*c)x-U-W<lm)x 

3==Z 1 ' 

SQA*  SOROO(A) 

SQA*  ^99.fp^ -|NERPTs1  | — *-  T0  B 

I no  ZZZH_ 

BEGIN  COMPUTATION  FOR  LARGEST 
ELEVATION  ANGLE  WHICH  CAN  STILL 
RESULT  IN  RAT  REFLECTION! 

1 

SQROOX » SQRQO  IRM2« R6YMS  - ( te/(4^0»A?))  | 
SQROOX  ? 9999.  f p^-»  NgRPT  *z\ — *•  TO  B 

compute"  COSINE  OP  LARGEST  ANGLE  I 
ibbtpen) 


ggTPEN  » AC06CK  (BETPEN)I 


TBS 

BETPENa  S999.  ?|— -f  NERPT»3f *~T0 

rNO 


BEGIN  NEWTON '6  METHOD  FOR  ELEVATION 

ANGLE  MINIMISING  group  PATH  STARTING 
WITH  8ETA5  0.5ABETPEN 


•TO  B 


rrERCT»N0.  oc  ITERATIONS  PERFORMED  JQ 


itbrct  * rreccT  +iH — (a) 

’PRINT  ERROR  MBS6AG* 


ITBRCT  >NTRTf 


No 

COMPUTE  COS.  OF  B LBV.  ANGLE 
AT  lONOSPNECE  BASS  C COSGAM^ 


(MAMMA  = ACOSOC  (COSOAM) 

Figure  A. 3. 4. a.  Flow  chart  for  subroutine  FSTDFS 

(continued  on  next  figure) . 
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Figure  A.3.4.b.  Flow  chart  for  subroutine  FSTDFS 

(continuation  of  Figure  A. 3. 4. a). 


v-.;  'f  *■-.  .Y*.  . ... 


RgTUftM| 


Figure  A. 3.6.  Flow  chart  for  special  functions 
(square  root,  log,  and  cos~l) . 
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The  program  formats  are  as  follows 
INPUT: 

The  input  format  shown  in  Figure  A.  3.7  can,  perhaps,  be  more 
easily  understood  by  referring  to  the  flow  diagram  of  the 
main  program.  The  first  card  serves  primarily  to  identify 
the  backscatter  ionogram  sounder.  The  variables  appearing 
on  the  first  control  card  are  as  follows. 

TRANSMITTER  CARD: 

1.  transmitter  latitude  (degrees) 

2.  transmitter  longitude  (degrees) 

3.  initial  estimate  of  overhead  critical  frequency  (MHz) 

4.  initial  estimate  of  base  height  of  overhead  ionosphere  (km) 

5.  initial  estimate  of  semi thickness  of  overhead  ionosphere 
(km) 

6.  number  of  azimuthal  directions  along  which  BSI  are 
obtained  (integer) 

7.  an  index  (ind)  which  is  zero  when  the  user  is  supplying 
group  delay  deck,  and  nonzero  otherwise  (integer) 

The  format  of  the  transmitter  card  is  5F10.2,  II,  9X,  II 
respectively . 

The  next  set  of  cards  comprise  the  BSI  deck.  The  first 
card  in  this  set  is  the  azimuth  identification  card  which  con- 
tains 

AZIMUTH  ID  CARD: 

1.  azimuth  along  which  the  following  set  of  backscatter 
ionogram  points  have  been  obtained.  (degrees) 

2.  the  total  number  of  backscatter  ionogram  points  along 
the  azimuth  which  will  be  read  in.  (integer) 

3.  the  number  of  consecutive  BSI  points  (less  than  or  equal 
to  the  total  number  of  BSI  points)  which  will  be  con- 
sidered simultaneously  in  obtaining  a single  net  of  QPP. 
(integer) 


'■r  <£  ' 
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The  format  of  the  azimuth  card  is  F10.2,  12,  8X,  12 
TOLERANCE  CARD: 

1.  tolerance  of  the  deviation  of  the  group  path  with 
respect  to  elevation  angle  (typically  .05  km/rad.) 

2.  final  step  size  control  for  minimization  (typically  .01) 

3.  desired  final  value  of  error  in  fitting  QPP  to  measured 
BSI  (typically  .05  km/rad.) 

4.  maximum  number  of  iterations  which  may  be  performed  in 
fitting  QPP  to  measured  BSI  (floating  point) 

The  format  of  this  card  is  4F10.5. 

BSI  POINT  DECK  (SINGLE  AZIMUTH) 

There  is  one  card  for  each  measured  point  on  the  BSI  along 
the  given  azimuthal  direction.  Each  card  contains: 

1.  frequency  of  BSI  point  (MHz) 

2.  group  path  of  BSI  point  (km) 

The  format  is  2F10.0. 

USING  THE  RESTART  CARD: 

The  restart  card  (format  110)  is  used  only  if  IND^O.  When 
the  user  sets  IND^O  (referring  to  the  main  program  flow  chart) 
the  program  will  not  use  the  QPP  to  compute  the  ground  range  cor- 
responding to  a given  group  path.  In  fact,  the  program  will  go 
no  further  than  the  computation  of  QPP  as  performed  by  subroutine 
BACKS3.  The  only  information  on  the  restart  card  is  the  integer 
KGO.  Setting  KGO  to  zero  (or , equivalently , using  a blank  card) 
tells  the  program  to  read  in  another  batch  of  cards  consisting 
of 
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1.  TRANSMITTER  CARD 

2.  AZIMUTH  ID  CARD 

3.  TOLERANCE  CARD 

4.  BSI  POINT  DECK 

and,  if  the  new  transmitter  card  has  IND=0 

5.  GROUP  DELAY  DECK 

6.  TERMINATION  CARD 

Setting  KGO  < 0 will  terminate  the  execution  by  telling  the 
program  that  there  is  no  more  data  to  be  processed. 

NOT  USING  THE  RESTART  CARD: 

The  restart  card  should  not  be  used  when  IND=0.  Also,  even 
when  IND^O  the  restart  card  should  not  be  used  between  BSI  decks 
corresponding  to  the  same  transmitter  card,  but  different  azi- 
muthal angles  (multi-azimuth  case).  In  this  case,  the  last  card 
of  the  BSI  point  deck  is  followed  immediately  by  the: 

1.  AZIMUTH  ID  CARD 

2 . TOLERANCE  CARD 

3.  BST  POINT  DECK 

corresponding  to  the  next  azimuthal  direction,  with  the  data 
from  the  first  transmitter  card  being  used  for  all  subsequent 
azimuthal  angles.  After  the  BSI  point  deck  corresponding  to  the 
last  azimuthal  angle,  the  restart  card  is  used  to  signify  end  of 
data  (KGO  < 0) , or  a new  transmitter  card  (KGO  = 0) . 

GROUP  DELAY  DECK: 

The  group  delay  deck  provides  the  program  with  a specific 
value  of  group  path  from  which  to  compute  the  ground  range. 
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There  is  one  card  for  each  group  path  measurement  to  be  used  in 
this  manner.  Each  card  in  the  group  delay  deck  contains: 

GROUP  DELAY  DECK  CARD: 

1.  frequency  at  which  measurement  is  made  (MHz) 

2.  azimuthal  angle  at  which  measurement  is  made  (degrees) 

3.  measured  value  of  group  path  (km) 

The  format  is  3F10.0. 


TERMINATION  CARD: 

After  the  last  group  delay  deck  card  there  must  be  a termi- 
nation card,  containing  the  parameter  FW  in  F10.0  format.  FW  < 0 
signifies  end  of  data  and  terminates  the  program.  FW=0  tells 
the  program  that  more  data  will  be  read  in,  starting  from  the 
transmitter  card  and  continuing  in  order  to  either  a restart  card 
or  a new  termination  card. 
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SUMMARY  or  THE  RAnKRCA  TIER  LEADING  EflQF  INVERSION 
3 RETS  OF  T OVERLAPPING  rets  WFRE  SUScESR! VELY  INVERTED 
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OUTPUT  FORMAT: 

Referring  to  the  sample  output  which  resulted  from  a single 
azimuth  measurement,  subroutine  BACKS 3 causes  block  A to  be  printed. 
Each  row  of  block  A contains  RB,  RM,  FC,  frequency,  range,  and 
minimum  group  path.  Block  B contains  the  same  information  as 
block  A (except  for  frequency)  and  shows  that  the  variables  have 
been  transferred  from  BACKS3  to  the  main  program.  Block  C con- 
tains frequency,  azimuth,  measured  group  path  and  the  first  ap- 
proximation to  ground  range  in  the  subsequent  attempt  to  compute 
the  ground  range  from  a given  value  of  group  path.  Block  D con- 
tains the  interpolated  values  of  QPP  at  the  reflection  point 
Block  E is  printed  out  in  subroutine  DCAL  and  represents  the 
progress  of  subroutine  DCAL  in  homing  a ray  through  the  QP  ion- 
osphere model  based  upon  group  path.  Each  row  of  block  E con- 
tains frequency,  measured  group  path,  initial  elevation  angle 
(8),  computed  group  path,  the  derivative  of  group  path  with 
respect  to  8,  and  the  three  QPP  describing  the  ionosphere.  In 
the  last  rcw  of  block  E,  it  can  be  seen  that  the  computed  and 
measured  group  paths  are  very  close,  so  DCAL  returns  to  the 
main  program.  Upon  returning  to  the  main  program  block  F is 
printed  and  contains  frequency,  azimuth,  measured  group  path, 


estimated  ground  range,  and  ground  range  based  upon  the  homed 
in  value  of  the  initial  ray  elevation  angle.  Since  these  two 
ground  ranges  are  so  different  a new  interpolation  procedure  is 
initiated  in  the  main  program  to  compute  the  values  of  QPP  at 
the  reflection  point  of  the  homed  in  ray.  This  interpolation 
is  summarized  in  block  D,  and  comparing  the  first  block  D with 
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the  second  block  D,  we  can  see  that  the  QPP  at  the  reflection 
point  are  indeed  different  when  computed  for  the  homed  in  ray. 
This  leads  to  an  iterative  process  which  alternates  between 
subroutine  DCAL,  and  the  recomputation  of  the  interpolated  QPP 
The  final  block  F shows,  however  that  the  most  recent  computed 
ground  range , and  the  ground  range  from  the  previous  iteration 
are  very  close.  Thus,  block  G is  printed  in  the  main  program 
and  contains  the  frequency,  azimuth,  group  path  and  final 
solution  for  the  ground  range. 
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A METHOD  FOR  INVERTING  OBLIQUE 
SOUNDING  DATA  IN  THE  IONOSPHERE 


★ 

S.  L.  Chuang  and  K.  C.  Yeh 
Department  of  Electrical  Engineering 
National  Taiwan  University 


We  have  developed  in  this  paper  a method  of  inverting  backscatter 
leading  edge  ionograms  and  fixed  distance  oblique  ionograms  to  obtain  ioniza- 
tion profiler-  The  problem  of  ionogram  inversion  is  first  formulated  in 
such  a way  that  the  Backus-Gilbert  technique  can  be  applied.  This  inversion 
technique  starts  by  assuming  an  initial  profile  based  on  available  knowledge. 
Oblique  group  paths  are  computed  by  using  this  initial  profile  and  are  compared 
with  the  experimental  data.  The  discrepancy  in  group  path  is  used  as  a basis 
for  improving  the  profile  and  thus  an  iterative  procedure  is  developed.  This 
iteration  is  continued  until  an  optimum  solution  is  found.  As  is  well-known, 
when  ionograms  are  given  at  discrete  frequencies  there  may  exist  an 
infinite  number  of  profiles  that  will  yield  the  observed  group  path  data. 

Among  this  infinite  number  of  solutions  there  is  an  optimum  one  in  the  sense 
that  its  fractional  departure  from  the  initially  assumed  profile  is  a minimum 
in  terms  of  value  at  boundaries  and  in  terms  of  the  profile  curvature.  The 
method  is  then  applied  to  the  special  vertical  incidence  case  and  reasonably 
fast  convergence  is  obtained.  This  success  demonstrates  the  promise  of  this 
method  in  inverting  oblique  sounding  data. 

* Permanent  address:  Department  of  Electrical  Engineering,  University  of 

Illinois. 
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1.  INTRODUCTION 

In  ionospheric  sounding  one  usually  measures  the  wave  parameters,  such 
as  transit  time,  frequency  shift,  polarization,  power  returned,  etc.  One 
wishes  then  to  make  use  of  these  measured  wave  parameters  to  deduce  the 
physical  parameters  of  the  ionosphere,  such  as  electron  density,  temperature, 
motion,  etc.  In  order  to  deduce  these  physical  parameters  one  must  make  use 
of  a theory,  known  as  the  inversion  theory,  to  relate  these  desired  physical 
parameters  to  wave  parameters.  Sometimes  the  inversion  is  quite  simple; 
sometimes  the  inversion  can  be  quite  complex.  A case  in  point  is  the  inver- 
sion of  vertical  ionograms,  e.g.,  [Budden,  1961,  p.  161],  where  the  virtual 
height  h'(f)  as  a function  of  frequency  f is  measured  and  the  true  ioniza- 
tion profile  N(h)  is  desired.  From  wave  propagation  studies  one  realizes 
that  h'  is  a nonlinear  functional  of  N and  as  such  it  is  in  general  very  dif- 
ficult to  solve.  Fortunately  for  the  case  of  vertical  ionograms  with  mag- 
netoionic effects  ignored,  the  integral  can  be  put  in  the  form  of  a convolu- 
tion type  which  can  then  be  solved,  for  example,  by  Laplace  transform,  provided 
that  N(h)  increases  monotonically  with  height.  Now  if  one  wishes  to  sound 
obliquely  in  order  to  obtain  the  profile  some  distance  away  from  the  local 
vertical,  the  integral  is  no  longer  of  the  convolution  type.  In  this  case, 
since  the  group  delay  is  a nonlinear  functional  of  N(h),  the  inversion  becomes 
very  difficult.  Current  techniques  are  largely  numerical  and  are  designed  to 
obtain  a model  profile  that  will  yield  data  approximating  the  measured  data. 

However,  ionospheric  investigations  have  been  carried  out  for  several 
decades.  The  accumulated  knowledge  enables  us  to  make  a zeroth-order  guess 
about  the  profile.  If  this  zeroth-order  profile  does  not  depart  appreciably 
from  the  true  profile,  it  is  possible  to  reformulate  the  problem  by  a lineari- 
zation procedure.  This  reformulated  problem  is  much  simpler  to  deal  with 


1 


252 


because  it  is  now  linear.  Many  mathematical  techniques  applicable  to  linear 
problems  can  be  used  in  order  to  arrive  at  a solution.  Our  approach  is 
similar  to  that  used  in  geophysics  for  inverting  seismic  data  [Backus  and 
Gilbert,  1967]. 

2.  FORMULATION 

For  simplicity  we  will  ignore  the  magnetoionic  effects  completely.  The 
ionosphere  is  assumed  to  be  spherically  stratified  so  that  the  Bouguer's  rule 
applies  at  any  point  along  the  ray,  i.e.. 


Tq  cos  <f>Q  = rn  cos  (J>  = r^n^  = constant 


(1) 


where  r is  the  geocentric  distance  of  a point  along  the  ray,  n = n(r)  is  the 
refractive  index  and  $ = <C(r)  is  the  elevation  angle  of  the  ray.  The  earth 
radius  is  Tq  at  which  = 4>(tg).  The  ray  is  reflected  with  a geocentric 
distance  r^  at  which  n^  = n(rt)  and  ^(r^)  = 0.  The  group  path  of  an  iono- 
spherically  reflected  signal  is 


P = 2 


ds  + 2 


r 

r t 


ds/n 


(2) 


This  integral  is  integrated  along  the  ray  from  r^  to  the  bottom  of 
the  ionosphere  at  r^  in  free  space  and  then  from  r^  to  rfc  in  the 
ionosphere.  In  the  ionosphere  the  refractive  index  is  related  to  the  electron 
density  profile  N(r)  through 


2 2 
n = 1 - kN/f 


(3) 


2 2 

where  f is  the  radio  frequency  and  k = e /4u  me^  has  a numerical  value  80.6  in 
S.I.  units.  It  is  easily  seen  from  (2)  that  P is  a nonlinear  functional  of  N. 
We  are  not  aware  of  any  analytic  method  that  can  be  used  to  solve  for  N. 
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Therefore,  we  will  adopt  a perturbation  scheme  to  linearize  the  problem.  Our 


approach  is  similar  to  that  used  in  inverting  teleseismic  ray  data  [Johnson 
and  Gilbert,  1972J. 

Perturbations  in  P can  come  from  two  sources:  perturbations  in  n and 

perturbations  in  Taking  the  variation  in  (2)  and  linearizing,  we  obtain 


6P  = 2 


-6n  . . 3P  . , 

T ds  + 6*o  * 

r,  n 0 

b 


In  practice  two  kinds  of  oblique  sounding  data  can  be  obtained:  backscatter 
leading  edge  and  oblique  ionogram.  For  a thorough  review  on  the  nature  of 
these  data,  the  reader  is  referred  to  Davies  [1965].  We  discuss  both  of  these 
cases  for  our  purpose  in  the  following. 

(i)  Backscatter  leading  edge. 

The  backscattered  leading  edge  has  a minimum  time  delay.  In  this  case 
3P/3<{>q  = 0 and  the  variation  in  group  path  is  caused  entirely  by  variations  in 
the  refractive  index.  The  variation  in  n can  be  related  to  the  variation  in 
N by  "sing  (3).  Substituting  (3)  and  (1)  in  (4)  yields 


where 


■ r * 


x = 6N/N 


K|  = krN/f 2(1  - kN/f 2)  [ (1  - kN/f2)r2  - r2  cos2  4>0]1/2  . (7) 

The  kernel  Kj  can  be  computed  from  the  model  ionosphere  and  is  therefore  known. 
We  note  in  (5)  that  6P  is  a linear  functional  of  6N. 
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(ii)  Oblique  ionogram 

The  oblique  ionogram  gives  the  group  path  of  ionospherically  reflected 
signals  as  a function  of  frequency  for  a fixed  ground  distance  D.  The  ground 
distance  is 


D = 2r0  cos  »0 


dr 


r 

r t 


/ 2 

r/r  - 


2 2 

ro  cos 


dr 


rL  fi~2  2 2 , 

b r/n  r - Tq  cos  <{iq 


. (8) 


As  the  ionization  profile  is  varied  by  6N,  tlie  initial  elevation  angle  of  the 
ray  must  also  be  varied  by  6 4>q  in  order  to  keep  D fixed.  Take  the  variation 
of  (8)  and  set  it  to  zero  to  produce 


6*0  = 


2Tq  cos 


-kr6N  dr 


, 2C2  2.  2 2 2 2 .1/2 

rfa  2n  f r (n  r - rQ  cos  <^>Q> 


(9) 


Inserting  (9)  in  (4),  the  variation  in  group  path  of  an  oblique  ionogram  is 
found  to  be 


6P 


- r s 

» r- 


x dr 


(10) 


where  the  known  kernel  is 


k2  ■ k; 


- r*  cos  4>0/r2]  (3P/3«|>0)/(3D/34.0) 


(ID 


Comparing  (5)  and  (10),  one  notes  that  for  both  kinds  of  oblique  data, 
the  variation  in  group  path  is  given  by 


r 

6P(f)  = [ K’(r,f,t0)x(r) 

r. 


dr 


(12) 


where  for  backscatter  leading  edges  K'  = K^,  and  for  oblique  ionograms  K'  = K^. 
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The  kernel  K'  is  referred  to  as  the  Frechet  kernel  [Backus  and  Cilbert,  1967; 
Green,  1975]  because  5P  is  obtained  by  taking  the  Frechet  differential  of  (2) 
Our  objective  is  to  obtain  the  optimum  x in  some  sense.  We  do  this  by 
following  the  Backus-Gilbert  approach  in  the  following  section. 


3.  OPTIMIZATION 


Suppose  the  oblique  sounding  data  have  been  measured  experimentally  at  M 


frequencies  f^,  i = 1,2,..., M.  The  corresponding  group  paths  are  P 


i = 1,2,...,M.  For  the  purpose  of  obtaining  the  ionization  profile  N(r)  that 
produces  these  experimental  data,  we  make  use  of  our  knowledge  based  on  past 
experience  to  construct  a zeroth-order  approximation  to  the  true  ionization 


profile.  This  approximate  profile  is  then  used  to  compute  M group  paths  P 

ci 


for  M frequencies  f^,  and  M initial  elevation  angles  The  departure  of 

the  computed  group  path  P^  from  the  experimentally  measured  group  path  P 
is  y^,  i.e.,  = P - P^.  Then  according  to  (12), 

r 

y i ( f i ) = [ Ki(r,fi,4>oi)x(r)  dr  i = 1,2,. ...M 

Jr. 


(13) 


where  r^  is  the  peak  height  of  the  ionosphere.  The  Frechet  kernel  is  given 


by 


Kl(r’fi’V  rbir±rti 


Ki(r*W>  = 


(14) 


rti±r 


for  backscatter  leading  edges,  and,  for  oblique  ionograms. 


K2(r'fi^oi>  rbirirtl 


Ki<r-h.*OI) 


(15) 


rti±r 


'?  ' <4  . > . 


5 


256 


where  r ^ is  the  geocentric  distance  of  reflection  for  f^.  In  later  develop- 
ment will  be  required  to  be  square  integrable.  However,  since  both  K|  and 

Kj  have  singularities  at  the  point  of  reflection,  is  obviously  net  square 
integrable.  This  difficulty  can  be  remedied  by  integrating  (13)  by  parts 
twice,  as  suggested  by  Johnson  and  Gilbert  [1972],  to  produce 


y . = -H.(r.  )x(r.  ) - G.(r  )x’(r  ) + G (r ) x" (r ) dr 
i lb  b l p P J i 


i = 1,2,. ..,M 


where 


x'(r)  = dx/dr 


x"(r)  = 


d2x/dr2 


H.(r) 


Ki(r'  ,fi,4’oi)  dr' 


G^r) 


■r 

H.(r' 

• T* 


) dr' 


Now  our  original  nonlinear  inversion  problem  is  reduced  to  the  linear 
problem  of  (16)  in  which  we  have  M data  points  to  determine  x"(r).  In  general, 
the  solution  to  (16)  is  nonunique.  Among  this  infinite  number  of  solutions  is 
a particular  one  for  which 


I <x2(rb)  + x’2(rp)  + 


p 2 
(x"(r) \ dr 


= minimum 


This  solution,  if  it  exists,  is  the  optimum  solution  we  seek.  It  is  optimum 
in  the  sense  that  the  constraint  condition  (18)  is  satisfied  and  that  the 


errors  in  x(r,  ) and  x'(r  ) are  minimized  and  the  profile  x(r)  is  very  smooth 
b p 

since  the  square  of  its  cumulative  curvature  over  the  interval  [r^.r  ] ,s 
minimized.  Notice  that  we  have  chosen  to  deal  with  fractional  departures  of 
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electron  density  here  as  x is  defined  by  (6).  But  it  is  possible  to  introduce 
any  other  reasonable  weighting  function  on  6N  if  so  desired  by  modifying  the 
definition  of  the  Frechet  kernel  as  done  by  Green  [1975].  Such  weighting  may 
be  desirable  in  cases  where  parts  of  data  are  known  a priori  more  accurately 
than  others,  and  hence  deserve  more  weight. 

The  optimum  solution  can  be  found  easily  by  introducing  Lagrange  multi- 
pliers v ^ . Carrying  out  the  process  of  minimization,  the  solutions  are  found 
to  be 


x"(r)  = 


l v.G.(r) 
1=1  1 1 


(19a) 


x’(rp) 


= - y v .G . (r  ) 
. , i 1 P 


(19b) 


x(rb) 


- I v.H,(r,) 

1=1  1 1 b 


Insertion  of  (19)  into  (16)  yields 


y± = l Hi<rb)Hj(rb)  + Gi(rP)Gj(rp)  J Gi(r)Gj(r)  dr  • 

j-1  rh 


Equation  (20)  can  be  put  in  a very  compact  form  if  the  following  vector  nota- 
tions are  used.  Let  the  column  vectors  be 


and  the  symmetric  M * M matrix  A - ] have  an  ijth  element 


< 
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A.  . •=  H.(r  )H.(r.  ) + G.(r  )G.(r  ) + 
ij  lbjb  ipjp 


r 

f P 


G . (r)C . (r)  dr 
i J 


(22) 


Then  (20)  becomes  simply 

y /-  Av  . (23) 

For  independent  data,  det  A ^ 0,  and  (23)  can  be  inverted  to  give  v.  Knowing 
v,  (19a)  reduces  to 

x"(r)  = (A_1y)G(r)  (24) 

where  G(r)  is  a column  vector  whose  ith  element  is  G^(r).  Equation  (24),  to- 
gether with  the  boundary  conditions  (19b)  and  (19c),  enables  us  to  compute 
x(r)  by  integrating  (24)  twice.  Once  x(r)  = 6N/N  is  determined,  the  desired 
correction  6N  to  the  zeroth-order  model  N(r)  is  known.  Computations  can  then 
be  started  anew  by  using  the  new  model,  N(r)  + 6N(r),  to  produce  eventually  a 
second  correction.  Thus  an  iteration  procedure  is  established.  By  repeated 
iteration,  a final  optimum  solution  can  be  achieved.  At  each  step  we  may 
check  the  value 


x2(rb)  + x,2(rp)  + 


f P 2 -»T  -*■ 

[x"(r) ] dr  = v Av 


(25) 


When  this  value  is  less  than  a certain  specified  small  value,  the  iteration 
procedure  may  be  terminated.  The  final  profile  N(r)  will  be  the  desired  opti- 
mum electron  density  profile  for  the  set  of  data  P , i = 1,2,...,M. 

4.  VERTICAL  INCIDENCE 


As  mentioned  earlier,  the  vertical  ionogram  can  be  inverted  exactly  if 
the  ionization  profile  increases  monotonical ly  with  height.  However,  for  the 
sake  of  completeness,  we  will  also  work  out  our  scheme  for  this  particular 
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case.  Since  the  vertical  incidence  case  is  easier  to  manage  analytically,  a 
numerical  example  will  be  given  in  the  next  section  to  illustrate  the  compu- 
tational procedures  involved. 

For  vertical  incidence  the  initial  elevation  angle  iJq  is  90°.  The  once- 
integrated  Frechet  kernel  IL(r)  no  longer  exists  at  r = r ^ since  the  singularity 
of  Kj  at  r ^ as  given  by  (7)  is  now  of  higher  order.  Close  attention  must  be 
paid  in  order  not  to  allow  singularities  to  get  out  of  hand.  This  can  be  done 
by  a slight  modification.  Taking  the  Frechet  differential  of  (2)  as  before, 
except  for  the  vertical  incidence  case,  ds  is  replaced  by  dr  and  one  obtains 


with 


= 6P  = 


K(r)x(r)  dr 


x(r)  = 6n/(n  + Sn) 
K(r)  = -2/n  . 


(26) 


(27) 

(28) 


Now  (26)  is  identical  in  form  to  (13).  An  identical  procedure  can  be  followed 
by  first  integrating  by  parts  twice  and  setting  up  the  minimization  process 
similar  to  that  given  in  the  last  section  to  obtain  x.  After  knowing  x(r), 
(27)  and  (3)  can  be  used  to  find  the  perturbed  ionization  profile  required 
through 

6N(r)  = (1  - kN/f2) [1  - (1  - x)"2]f2/k  . (29) 

If  one  wants,  a new  model  N(r)  + 6N(r)  can  be  used  to  replace  the  initial 
model  N(r),  and  the  computations  are  repeated.  Thus  an  iteration  procedure  is 
established  as  before.  This  iteration  can  be  terminated  when  the  error  is 
smaller  than  some  specified  value. 


5.  AN  EXAMPLE 

For  purposes  of  illustration,  we  shall  assume  a parabolic  layer 
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N (z)  = N [1  - (z  - Y)2/Y2J  0 < z < 2Y  (30) 

p m 

as  the  true  ionization  profile.  For  simplicity  the  vertical  coordinate  z 
starts  at  the  bottom  of  the  ionosphere  and  the  ionosphere  has  a semithickness  Y 
In  this  case  the  measured  group  path  (equal  to  twice  the  group  height)  is 

P = Y ( f / f ) in [ ( f + f)/(f  - f)]  (31) 

m c c c 

where  f is  the  critical  frequency, 
c 

Suppose  as  an  initial  guess  of  the  profile  we  assume  a linear  profile 

Nj(z)  = az  0 < z • (32) 

2 

A signal  of  frequency  f incident  vertically  is  reflected  at  a height  z^  = f /ka 
Its  corresponding  group  path  is 

P = 4z  . (33) 

c t 

The  Frechet  kernel  (28)  becomes,  for  this  initial  profile, 

K(z)  = -2/(1  - z/zt)1/2  . (34) 


The  corresponding  once-integrated  and  twice-integrated  Frechet  kernels  can  be 
computed  easily  as 


H(z) 


1/2 

K(z)  dz  = 4z(.(l  - z/zt) 
z 

t 


(35) 


and 

G(z)  = [ H(z)  dz  = - (8z2/ 3) [ ( 1 - z/z  )3/2  - 1]  . (36) 

J0 

With  (36)  substituted  into  (19a),  we  obtain  the  solution  x"(z).  Integrate  the 
resulting  expression  twice,  constrained  by  the  boundary  conditions  (19b)  and 
(19c),  and  we  obtain 
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x(z) 


4z2 

. 7/2 

2 

4z2^ 

= -v(8z2/3) 

t 

35 

1-41 

- + (zt  + l)z  + 

3 t 

l2zt  " 35 

.07) 


The  Lagrange  multiplier  v in  (37)  is  computed  from 


.-1 

v = A y 


(38) 


where  y = P - P is  the  difference  of  time  delay  in  a linear  model  profile 
cm 

(32)  from  that  in  a true  parabolic  profile  (30)  at  frequency  f,  and  A is  com- 
puted from  the  expression 

A = 16z2  + (64/9) z^  + (16/5) z3  (39) 

by  using  formula  (22).  After  knowing  x(z),  it  is  then  inserted  in  (29)  to 
produce  SN(z).  Computations  can  be  repeated  anew  by  using  N(z)  + 6N(z)  as  the 
model  profile,  except  now  the  corrected  model  profile  is  not  necessarily 
linear  so  that  a numerical  scheme  may  have  to  be  developed.  One  possibility 
is  to  use  a piecewise  linear  model. 

Let  us  now  adopt  some  numerical  values.  We  take,  for  the  true  (parabolic) 

1 2 3 

profile  Y = 100  km,  = 10  el/m  . Then  at  a frequency  f = 8.693  MHz,  we 

obtain  from  (31)  P = 400  km.  For  the  model  (linear)  profile,  we  take 
m 

a = 1.25  x 1010  el/m'Vkm,  which  gives  P^  = 300  km  at  the  same  frequency. 

This  gives  an  error  in  group  path  of  y = P - P = -100  km.  Substitute  these 

c m 

numerical  values  in  (37)  to  obtain  x(z)  which,  when  inserted  in  (29),  gives 
us  the  perturbed  6N(z)  required  to  reduce  the  error.  The  results  are  shown 
graphically  in  Figure  1.  It  is  seen  that  by  using  data  only  at  one  frequency, 
the  once-iterated  profile  N + 6N  approaches  the  true  profile  N reasonably 

l p 

fast. 
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6.  CONCLUSION 

We  have  outlined  in  this  paper  a method  whereby  ionospheric  profiles  can 
be  deduced  from  oblique  sounding  data.  The  method  starts  by  assuming  a 
guessed  zeroth-order  profile  based  on  our  past  experience  and  the  accumulated 
knowledge  about  the  ionosphere.  An  iterative  scheme  has  been  worked  out  to 
enable  us  to  improve  the  computed  profiles  until  the  errors  are  smaller  than 
some  specified  value.  As  an  illustration  the  method  is  applied  to  the  verti- 
cal incidence  case,  which  shows  reasonably  fast  convergence.  Encouraged  by 
this  success,  we  would  like  to  suggest  that  more  extensive  numerical  compu- 
tations be  carried  out. 
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FIGURE  CAPTION 

Figure  1.  Illustrating  convergence  of  the  iterative  procedure.  The  parabolic 
profile  N is  assumed  to  be  the  real  profile.  The  linear  profile 
N^  is  the^initial  guess.  The  one-iterated  profile  is  N^  + 5N. 
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